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NEWSLETTER INFORMATION 



THE TRS-80 MONTHLY NEWSLETTER IS PUBLISHED BY H & E COMPUTRONICS INC, 

THE TRS-80 MONTHLY NEWSLETTER IS NOT SPONSORED, NOR IN ANY WAY OFFICIALLY SANCTIONED BY 
RADIO SHACK. 

THE PURPOSE OF THE TRS-80 MONTHLY NEWSLETTER IS TO PROVIDE AND EXCHANGE INFORMATION 
RELATED TO THE CARE, USE AND APPLICATION OF THE TRS-80 COMPUTER SYSTEM, 

H & E COMPUTRONICS INC. DOES NOT TAKE FINANCIAL RESPONSIBILITY FOR ERRORS IN PUBLISHED 
PROGRAMS, USERS ARE ADVISED TO CAREFULLY EDIT VITAL PROGRAMS. 

THE TRS-80 MONTHLY NEWSLETTER ENCOURAGES COMMENTS, QUESTIONS AND SUGGESTIONS. WE 
PUBLISH ARTICLES AND PROGRAMS WRITTEN BY OUR READERS. COMPUTRONICS INC. WILL PAY CON- 
TRIBUTIONS FOR ARTICLES AND PROGRAMS PUBLISHED IN THE NEWSLETTER. 

SUBSCRIPTIONS ARE $24 PER YEAR ($30 PER YEAR-CANADA AND MEXICO, $36 PER YEAR OUTSIDE OF THE 
UNITED STATES, CANADA AND MEXICO-AIR MAIL). BACK ISSUES ARE AVAILABLE ($2 PER ISSUE). 

HAVE ANY URGENT QUESTIONS? WE HAVE TELEPHONE HOURS - 9 A.M. - 5 P.M. OTHER TIMES, LEAVE A 
MESSAGE ON OUR ANSWERING MACHINE. WE WILL PROMPTLY RETURN ALL CALLS (COLLECT), 

LOCAL TRS-80 CLUBS 

THE COMPUTER CLUB OF ORLANDO (FLORIDA) - Contact M. Scott Adams - (305) 862-6917. 

TRS-80 USER'S GROUP OF CHICAGO (ILLINOIS) - Contact John C. Longstreet, 1201 W, Chase Avenue, Chicago, 
Illinois 60626 or call 761-2742. 

THE SOLANO TRS-80 USER'S CLUB - Fairfield, California - Contact Dave or Steve Irwin - (707) 422-3347. 

TRS-80 USER'S GROUP OF WALNUT CREEK (CALIFORNIA) - Contact John Snyder, 71 2-C Country Wood, Walnut 
Creek, California 94598 or call (415) 938-9669. 

INLAND COMPUTER SOCIETY - Contact Sandy Sparks, 3359 Second Street, Riverside, California 92501 or call 
(714) 256-5319 or (714) 784-3499. 

TRS-80 USER'S GROUP OF SANTA ANA - Contact Arnold Vagts, 3713 S. Parton Street, Santa Ana, California 92707 
or call (714) 549-7021. 

TRS-80 BUG INC. OF FLORIDA - Contact Larry J. Harrell, 21 00 N. Atlantic Avenue #402, Cocoa Beach, Florida 32931 
or call i (305) 784-0456. 

ADVERTISING IN THE TRS-80 MONTHLY NEWSLETTER 

$200 PER PAGE ... $100 PER HALF PAGE ... $50 PER QUARTER PAGE . . .$25 PER EIGHTH PAGE . , . $10 FOR UP 
TO 50 WORDS IN OUR NEW CLASSIFIED AD DEPARTMENT (STARTING JULY, 1979). . . 
THESE PRICES ARE VALID FOR ISSUES 13 AND 14 ONLY. ADS MUST BE SUBMITTED BY THE 10th OF EACH 
MONTH IN ORDER TO APPEAR IN THE FOLLOWING MONTHS ISSUE. PAYMENT MUST BE INCLUDED WITH AD. 
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RANDOM SELECTION PROGRAM 
BV 
DR. PETER SHENKIN 

1 REM : += * * * * * * *:+::+:* * * + * * * =+: * * * * :+: :+: :+: :+: ■+: :+: :+: =+: * :+::+::+::+::+::+::+::+::+: :+: :+: :+: :+: :+: :+: * * :+: ;+: :+: :+: 

2 REM 

3 REM RANDOM SELECTION PROGQRRM 

4 REM BV DR. PETER SHENKIN 

5 REM 

€• R E M * * : + : * * : + : * : + : : + : : + ; : + : : + : : + : =+ : : + : : + : : + : : + : * : + : * =+= =+: * =+= * * * * * * * * * * :+:*:+::+::+: :+: :+: :+:*:+: :+: :+: :+: :+: =+: * :+: 

7 REM 

8 REM GIVEN RN INTEGER N, REPRESENT I NQ POPULATION SIZE AND AN 
S REM INTEGER K REPRESENTING SAMPLE SIZE THIS PROGRAM WILL 
10 REM CHOOSE K DIFFERENT RANDOM INTEGERS FROM THE SET OF 

±± REM INTEGERS BETWEEN 1 AND N. 

±2 RE M * * * :+"+"+= * * * * * * * :+= * * * * * * * * * * * * * * * * + * * * * * * * * * * * * * * =+ : * * * 
±6 CLS 

IS RANDOM 

29 PRINT "HOW M AN V -MEMBERS ARE IN VOUR POPULATION ".; 

30 INPUT N 

4© PRINT "HOW LARGE A RANDOM SAMPLE DO VOU WANT "; 

50 INPUT K 

60 DIM FKN>.. BOO 

70 FOR I=± TO N: :fl< I > = I : NEXT I 

80 FOR J-l TO K 

90 r=rnd-::n::> 

100 B < J > = A •■. R > 

110 FK R>=A<N> 

120 N=N-1 

13© NEXT J 

140 PRINT 

150 PRINT " THE SAMPLE CHOICES ARE PRINTED 4 TO R LINE FROM" 

160 PRINT " LEFT TO RIGHT. THESE CHOICES FOLLOW. "" 

170 PRINT 

180 FOR -T=l TO K: PR I NT BCTX. : NEXT J 

190 END 
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CHECKBOOK MAINTENANCE PROGRAM 
By Dr. Peter Shenkin 

The CHECKBOOK MAINTENANCE PROGRAM is written for use with a 1 6K Level II 
machine. Use is made of data files on the cassette recorder. This 
program effectively stores an entire check register on cassette tape. 
The greatest limitation is that at present the register can only 
handle 100 items. This problem may be easily rectified at some cost 
of efficiency or with some extra hardware. At present the entire 
register is read into the memory at once. More items could be fit 
if only part of the register had to be loaded at one time. For 
all program functions to still work this would entail dual cassette 
tapes(& expansion interface) or disk. If all REM statements are 
removed and the arrays are redimensioned it should be possible to 
fit many more than 100 items in the register. 

The functions which may be performed by the CHECKBOOK MAINTENANCE 
PROGRAM (CMP) are listed in the menu, program lines 2020-2080. 
The items should be somewhat self explanatory. Items 5. and 7. 
deserve some mention. "5. REVIEW OP CHECK EXPENSE CATEGORIES" lists 
the different categories of expense and income by which entries in 
the register may be grouped. Up to 100 categories may be used. As 
written 15 categories are used. (lines 3020-3080). The reader may 
easily change this. 

The following example shows the versatility of the program. 

Penny P. is about to start a new checkbook. The date is October 1,1978. 

Penny has $623.54 in her checking account. The next check she writes 

will be number 1366. From October 1 to October 10 Penny makes the 

following transactions: 

October 1,1978-Check # 1366-Sears-Roebuck - $50.00 
October 1,1978-Check # 1367-O & R Utilities- $104.77 
October 1,1978-Check # 1368-N.Y. Telephone - $ 61.95 
October 3 1 1978- DEPOSIT -Paycheck -$343.43 
October 3.1978-Check # 1369- Kerri Shenkin -$360.00 
October 6,1978-Check # 1370- Caldor -$ 20.14 
October 6,1978-Check # 1371- Rickel -8 12.00 
October 10,1978-Check #1372- N.C.C. Assoc. -£5 61.50 
October 10,197'8-Check #1373- Shell Oil Co. -$ 25. 00 
October 10,1978-Check #1374- Gulf Oil Corp. -a 29.26 
October 10,1978-Check #1375- Commerce Bank -$210.00 

Penny runs the program. The menu is printed* It reads as follows: 

CHECKBOOK MAINTENANCE PROGRAM 
CHOOSE NUMBER OF DESIRED OPTION 

1. SET UP NEW CHECKBOOK 

2. INPUT OLD CHECKBOOK FROM TAPE 

3. ADD TO OLD CHECKBOOK 

4. OUTPUT CHECKBOOK TO CASSETTE 

5. REVIEW OF CHECK EXPENSE CATEGORIES 

6. PRINT CHECKBOOK 10 ENTRIES AT A TIME 

7. LIST BY CATEGORY 

8. END THIS PROGRAM 62 
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PENNY presses 1 and then the ENTER button. (From now on all of Penny's 
replies to machine inquiries will be underlined. In. addition, 
all of Penny's replies are followed by ENTER.), The dialogue follows: 

INITIAL BALANCE ? 623.54 

INITIAL CHECK NUMBER? 1366 

INITIAL DATE IN FORM MM/DIJ/YY? 10/Ol/78 

INPUT DATE ? 10/01/78 (This is date of present transaction.) 
INPUT C FOR CHECK, D FOR DEP..GM FOR MISC. CHARGE? C 
CHECK ISSUED TO? SEARS-ROEBUCK 
CHECK CATEGORY TYPE? £ 
CHECK AMOUNT? 50.00 

CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL. 

10/01/78 $623.54 

1366 10/01/78 SEARS-ROEBUCK 7 $50.00 $573-54 

IF ERROR INPUT E. OTHERWISE ENTER? (PENNY presses ENTER) 
ANY MORE ENTRIES (Y/N)? Y 

INPUT DATE? 10/01/78 

INPUT C FOR CHECK, D FOR DEP..CM FOR MISC. CHARGE? C 

(Penny goes on as above for the remaining two October 1 checks. 
Then when the machine asks for more entries Penny says "no." 

ANY MORE ENTRIES (Y/N)? N 

CHECKBOOK MAINTENANCE PROGRAM 
CHOOSE NUMBER OF DESIRED OPTION 

1. SET UP NEW CHECKBOOK 

2. INPUT OLD CHECKBOOK FROM TAPE 

3. ADD TO OLD CHECKBOOK 

4. OUTPUT CHECKBOOK TO CASSETTE' 

5. REVIEW OF CHECK EXPENSE CATEGORIES 

6. PRINT CHECKBOOK 10 ENTRIES AT A TIME. 

7. LIST BY CATEGORY 
. 8. END THIS PROGRAM 

OPTION # ? 4 

POSITION BLANK TAPE ONTO CASSETTE PLAYER 

PRESS PLAY AND RECORD BUTTONS. 

PRESS ENTER WHEN READY. 

? (PENNY presses ENTER)- The data is loaded onto the cassette. 
Make a note of where on tape the data is. Do not record over a 
previously used part of tape. (Unless erased by bulk tape eraser) 

(The 8 part MENU is printed again.) 

OPTION # ? 8 

ARE YOU SURE YOU WANT TO END(Y/N)? Y 

READY 
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Penny rewinds the data cassette and stores it. On October 3 she is 
ready for 2 more entries in her checkbook. She runs the program. 
When the menu appears she does the following: 

OPTION #? 2 

PUT & POSITION DATA TAPE IN CASSETTE #-1. 
PRESS PLAY BUTTON 
PRESS ENTER WHEN READY. 

? (Penny presses enter. The cassette loads the data. The MENU appears. 
Penny chooses option 3. ADD TO OLD CHECKBOOK 

OPTION #? 3_ 

INPUT DATE ? 10/03/78 

INPUT C FOR CHECK, D FOR DEP..CM FOR MISC. CHARGE? D 

WHAT WAS DEPOSITED? PAYCHECK 

DEPOSIT CATEGORY TYPE = ? 5J) 

AMOUNT OF DEPOSIT ? 343. 43 



CHK NO. DATE 

10/01/78 
-1 10/03/78 



CHK ISSUED TO 



PAYCHECK 



TYPE 



50 



AMOUNT 



$343.43 



BA1. 

$4o6.82 

$750.25 



IF ERROR INPUT E. OTHERWISE ENTER? (Penny presses ENTER) 
ANY MORE ENTRIES (Y/N)? Y 

(■Penny completes her checkbook until Oct. 10. She decides to review 
her store charge card payment record. 

OPTION #? Z 

INPUT CATEGORY NUMBER OF INTEREST? £ 



CHK NO. DATE CHK ISSUED TO 

1366 10/01/78 SEARS-ROEBUCK 

1370 10/06/78 CALDOR 

1371 10/06/78 RICKEL 



TYPE 
7 
7 
7 



AMOUNT 
$50.00 
$20.14 
$12.00 



BAL. 

$573.54 
$370.11 
$358.11 



TOTAL FOR THIS ITEM = $ 82.14 

PRESS ENTER TO RETURN TO MENU? (Penny presses ENTER) 



OPTION # ? 6 

The entire check register will now be printed, 10 entries at a time in 
the above format. Penny may save the entire checkbook on tape at any 
time. The program does several other things, including the recognition 
of several errors. 

A planned expansion of this program will be to disk. One other addition 
will be the ability to update the entire register whenever an error 
is found, no matter how far back. Presently this ability only exists 
for errors in the present entry. 
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18 
15 
17 
28 
d^ 
24 
25 
26 



REht 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



_<U 
32 
34 
36 

100 

181 
182 
105 

110 

128 

998 

1888 

1818 

1828 

1899 

1188 

1118 

1199 

1288 

1218 

1215 

1238 

1235 

1248 

1245 

1258 

1255 

1268 

1262 

1265 

1299 



CHECKBOOK MAINTENANCE PROGRAM 
BV 
DR. PETER SHENKIN 

CHECKBOOK MAINTENANCE PROGRAM 
BV DR. PETER SHENKIN 

:+: ;+ : ;+: :+: ;+: *; ^ :+; :+: :+: * :* * * :-H * + * * * * * * * & * * * * * * * *v~' * * * * * * * # * * # + * :+: *: * M •¥ *: :* * * 

THIS SELF-DOCUMENTING PROGRAM WILL KEEP TRACK OF ALL 
CHECKBOOK ITEMS. DEPOSITS AND EXPENSEb MAV BE 
CATEGORIZED. UP TO 188 CATEGORIES ARE ALLOWED. 
CATEGORIES ENTERED FROM PROG. LINES 3828-j:889 
CHECKBOOK ITEMS MAV BE STORED ON CASSETTE AND READ 
IN FROM CASSETTE. AT PRESENT DIMENSIONING IS SET UP 
FOR 188 ITEMS IN VOUR CHECKBOOK AT ANV ONE TIME. 
THIS MAV BE CHANGED BV CHANGING DIMENSION VflR. V IN 181 
TO RUN PROGRAM DELETE REM STATEMENTS FOR MEMORV bPHCE. 



FKV>, B<V> 



.JUST CLOAD PROGRAM AND RUN. THERE SHOULD BE NO PROBLEM 
CLEAR 6888 
V=188 

D I M CNX < V > , D* < V > .. P* < V > , TX < V > 
GOSUB 990 
REM CHECK MENU 
GOSUB 2888 
REM SUBROUTINE 

H*="CHK NO. 

Z$=?"#### X 

Zl*=" X K 

RETURN 

REM SUBROUTINE PRINTING FORMATS 

PRINTUSING Hfv ZZ$ 

RETURN 

REM SUBROUTINE FOR PRINTING CHECKBOOK 

PR I NTUS I NQ Z*i CNJi < I > t D* < I > ; P* < I > J TK < I 

RETURN 

REM SUBROUTINE FOR INPUTTING CHECKBOOK 



WITH PRINTUSING FORMAT 
DATE CHK ISSUED TO 
X X 



VARIABLES 

TVPE AMOUNT 
X ## $*#####. ## 



BAL ! " 



INFORMATION 
> j A •:: I > :> B < I > 

INFO. FROM TAPE 



INPUT #-1/ CNE<I>> Dt<IX. P^-::i>, TK<I>. AO), B<I> 

RETURN 

REM SUBROUTINE FOR OUTPUTTINQ CHECKBOOK INFO. 

PRINT #~1, CNKC!I>, D$<I>.. P*<I>> T%<I>, A<I>, B<I> 

RETURN 

REM SUBROUTINE FOR PRINTING PREVIOUS BALANCE 

PRINTUSING Z1*;D*<I-1>jB<I-1> 

RETURN 

RETURN 



ONTO TAPE 
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1560 REM SUBROUTINE TO ENTER NEW ENTRV 

1510 INPUT "INPUT DATE "/D*<I> 

1515 PRINT "INPUT C FOR CHECK/ D FOR DEP. ..CM FOR MISC. CHARGE".; 

1520 INPUT Z9* , 

1525 IF Z9*-"C" GOTO 154© 

1526 IF Z9*="D" GOTO 157© 
152? IF Z9*="CM" GOTO 1600 

1530 PRINT "INPUT ERROR. TRV AGAIN" : GOTO 1515 

1540 CNK-CI>=CI :CI=CI+1 

1550 INPUT "CHECK ISSUED TO"/P*<I> 

1555 INPUT "CHECK CATEGORY TVPE"/T?i<I> 

1560 INPUT "CHECK AMOUNT"; fl< I > 

1565 B<I>=B<I-l>-fl<I> 

1569 GOTO 1610 

1570 CNK<I>=-1 

1575 INPUT "WHAT WRS DEPOSITED "/ P*< I > 

1580 INPUT "DEPOSIT CflTEGORV TYPE = "/T^<I> 

1585 INPUT "RMOUNT OF DEPOSIT "/A<I> 

1590 8<I>= ; B<I-l>+fl<I> 

1595 GOTO 1610 

1600 CNKCI>-~2 

1602 INPUT "WHV CHARGED TO RCCT. "/P*<I> 

1604 INPUT "CHARGE AMOUNT"/ fl< I > 

1605 INPUT "CHARGE CflTEGORV TVPE = "/T?i<I> 

1606 B<I>=B<I-l>-fl<I> 
1608 GOTO 1610 

1610 CLS 

1613 GOSUB 1100 

1614 GOSUB 1260 

1615 GOSUB 1200 

1618 FOR K=l TO 4: PRINT: NEXT K 

1620 PRINT "IF ERROR INPUT E. OTHERWISE ENTER"/ : INPUT Z8* 

1621 IF Z8*="E" GOTO 1623 

1622 GOTO 1625 

1623 ZS*="ZZZZ" : IF Z9*="C" THEN CI=CI-1 

1624 CLS: GOTO 1510 

1625 PRINT "RNV MORE ENTRIES <V/N>"; : INPUT Z9* 
1630 IF Z9*="N" GOTO 1690 

1635 IF Z9*="V" GOTO 1650 

1640 PRINT "INPUT ERROR. TRV AGAIN. " : GOTO 1625 

1650 1=1+1 : CLS: GOTO 1510 

1690 CNK<0>=I 

1699 RETURN 
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2006 REM MENU SUBROUTINE 

2010 CLS 

2020 PRINT" CHECKBOOK MAINTENANCE PROGRAM " 

2025 PRINT: PRINT "CHOOSE NUMBER OF DESIRED OPTION" : PRINT 

2030 PRINT "1. SET UP NEW CHECKBOOK" 

2035 PRINT "2. INPUT OLD CHECKBOOK FROM TAPE" 

2040 PRINT "3. ADD TO OLD CHECKBOOK" 

2050 PRINT "4. OUTPUT CHECKBOOK TO CASSETTE" 

2055 PRINT "5. REVIEW OF CHECK EXPENSE CATEGORIES" 

2060 PRINT "6. PRINT CHECKBOOK 1© ENTRIES AT A TIME. " 

2070 PRINT "7. LIST BV CATEGORY " 

2080 PRINT "8. END THIS PROGRAM" 

2030 PRINT: INPUT "OPTION # ";Z 

2092 CLS 

2034 ON Z GOSUB 2200, 2400, 2600, 2800, 3000, 3200, 3500/3900 

2097 GOTO 2010 

2039 RETURN 

2200 REM SUBROUTINE FOR SETTING UP NEW CHECKBOOK 

2210 1=1 

2215 INPUT "INITIAL BALANCE"; B<0> 

2217 INPUT "INITIAL CHECK NUMBER"; CI 

2218 INPUT" INPUT INITIAL DATE IN FORM MM/DD/VV"; D*<0> 
2213 CLS 

2220 REM NOW WRITE CHECK , MAKE DEPOSIT, OR OTHER CHARGE 

2225 GOSUB 15O0 

2250 RETURN 

2400 REM SUBROUTINE FOR INPUTTING OLD CHECKBOOK FROM TfiPE 

2410 CLS: PRINT "PUT & POSITION DATA TAPE IN CASSETTE #-1. ' 

2412 PRINT "PRESS PLAV BUTTON. " 

2415 PRINT "PRESS ENTER WHEN READV. ": INPUT Q 

2420 INPUT #-1, C I , CNX < > , B < > , D* < > 

2430 FOR 1=1 TO CNK<0> 

2440 GOSUB 1230 

2450 NEXT I 

2460 RETURN 

2600 REM SUBROUTINE TO ADD TO CHECKBOOK 

2610 GOSUB 1500 

2620 RETURN 

2800 REM SUBROUTINE FOR OUTPUTTING CHECKBOOK TO CASSETTE 

2810 CLS:PRINT"POSITION BLANK TAPE INTO CASSETTE PL AVER" 

2812 PR I NT "PRESS PLAV AND RECORD BUTTONS. " 

2815 PRINT "PRESS ENTER WHEN READV. ": INPUT Q 

2820 PRINT #-1, CI, CN?i<0>, B<0^,D*<0> 

2830 FOR 1=1 TO CNX<8> 

2840 GOSUB 1245 

2850 NEXT I 

2860 RETURN 

67 



CQMPUTRQNICS 



MATHEMATICAL APPLICATIONS SERVICE 7 



300© 


REM SUBROUTINE TO 


REVIEW EXPENSE CATEGORIES 


3010 


PRINT "CATEGORY 


DESCRIPTION" 


3020 


PRINT " 1. 


LOAN PAYMENT" 


3022 


PRINT " 2. 


BANK CARD PAYMENT" 


3024 


PRINT " 3. 


MEDICAL EXPENSE" 


3025 


REM THIS SPACE IS 


TO PUT IN CATEGORIES & DESCRIPTIONS IN 


3026 


PRINT " 4. 


HOUSEKEEPING MONEY" 


3028 


PRINT " 5. 


MORTGAGE 


3030 


PRINT " 6. 


HOME EXPENSE, UTILITIES, ETC. " 


3050 


PRINT " 7. 


STORE CHARGE CARD PAYMENT" 


3052 


PRINT " 8. 


INSURANCE" 


3060 


PRINT " 50. 


PAYCHECK DEPOSIT " 


3062 


PRINT " 51. 


CONSULTING FEE " 


3064 


PRINT " 52. 


MEDICAL RE I MBURSEMENT " 


3066 


PRINT " 53. 


OTHER BUSINESS INCOME" 


3068 


PRINT " 54. 


MISC. DEPOSITS" 


3088 


PRINT 




3090 


INPUT "PRESS ENTER 


TO RETURN TO MENU". Z3 


3099 


RETURN 




3200 


REM SUBROUTINE TO 


REVIEW CHECKBOOK 


3210 


CLS 




3215 


1=1 




3220 


GOSUB 1100 




3230 


GOSUB 1260 




3240 


FOR 1=1 TO CN m A<0> 




3250 


GOSUB 1200 




3260 


IF I/10=INT<I/10> 


GOSUB 3300 


3270 


NEXT I 




3280 


PRINT: INPUT "THE END. PRESS ENTER TO RETURN TO MENU, "j Z3 


3290 


RETURN 




3300 


REM SUBROUTINE FOR 


TEN ENTRY SCREEN DISPLAY 


3310 


IF I»CNX<0> RETURN 




3320 


PRINT 




3330 


INPUT "PRESS ENTER 


FOR MORE ENTRIES, "; Z3 


3335 


CLS: GOSUB 1100 




3340 


RETURN 




3500 


REM SUBROUTINE FOR 


LISTING BY CATEGORIES 


3505 


REM El IS TOTAL OF 


ITEM 


3506 


E1=0 




3510 


INPUT "INPUT CATEGORY NUMBER OF INTEREST"; Z5 


3520 


GOSUB 1100 




3530 


FOR 1=1 TO CNX<:0> 




3540 


IF TK<I>=Z5 GOTO 3 


560 


3550 


GOTO 3580 




3560 


GOSUB 1200 




3570 


E1=E1+A<I> 




3580 


NEXT I 




3590 


PRINT: PRINT "TOTAL 


FOR THIS ITEM =*"; El 


3595 


PR I NT "PRESS ENTER 


TO RETURN TO MENU".; : INPUT Z3 


3599 


RETURN 




3900 


REM SUBROUTINE TO 


END 


3905 


CLS 




3910 


PRINT "ARE VOU SURE YOU WANT TO END<V/N>"; : INPUT Z3$ 


3920 


IF Z3*="N" RETURN 




3930 


IF Z3*="V" END 




3940 


PRINT "INPUT ERROR. 


TRY AGAIN. " : GOTO 3910 
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BITS AND PIECES 

by 
HOWARD Y. GOSMAN 

SURVEY PARTICIPATION 

94% of our earlier subscribers (#1 - #3999) returned our survey (pages 47 and 48). The response was just 
fantastic. We do appreciate the active participation by so many subscribers and wish to encourage future 
subscriber involvement. The many helpful suggestions will help us improve the quality of each future 
Newsletter issue. 

The most common suggestions that we received related to the quality of print, quality of program 
printouts, number of typing errors and the size of the Newsletter, (1 ) As you can see, we have purchased 
typesetting equipment which does give high quality print. (2) Program printouts come from the RADIO 
SHACK LINE PRINTER. Poor quality of the printouts in Issue #1 were due to the use of an old ribbon. We 
did not change the ribbon prior to the printout. We now use a fresh ribbon for printouts and an improved 
method of duplicating these printouts. (3) Hopefully, all typing errors have been eliminated. (4) The size 
of the Newsletter has increased from 1 6 pages (Issue #1 ) to 24 pages (present issue) . Our goal is to reach 
36 pages by Issue #12. Detailed results of survey (especially repair information) will be published next 
month. 

NEW PRODUCTS FROM RADIO SHACK (NEW BUT NOT YET FOR SALE) 

RADIO SHACK will soon fye selling a full size disk drive with 250K capacity. Software will include an 
advanced BASIC, FORTRAN, CP/M and more. Probably release date, March, 1979. 

A 3.0 D.O.S. will be released shortly with a new disk manual. In the meantime, make sure that if you do 
have a disk drive, you have the 2.1 D.O.S. with a 50-page manual and 14-page addendum to the disk 
manual. 

RADIO SHACK will be releasing a complete business system for disk (before the end of the year). The 
system will include accounts payable, accounts receivable, inventory control, and payroll. The new 
system will be high quality (especially in comparison to some of the earlier cassette programs sold by 
RADIO SHACK). 

RADIO SHACK will be releasing a large number of new software diskettes and disks before the end of the 
year. Many of the programs were purchased from KILOBAUD. 
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THE NEW TRS-80 MICROCOMPUTER CATALOG 

RADIO SHACK has just published a brand new TRS-80 MICROCOMPUTER CATALOG (CATALOG 
NO. RSC-2). The catalogs are available at all local RADIO SHACKS (if there are any left.)- The full-color 
20-page catalog contains the following new products: (1) TRS-80 SYSTEM DESK ($199), (2) 
TELEPHONE INTERFACE I ($149), (3) RS-232-C SERIAL INTERFACE BOARD ($149), (4) PRINTER 
CONNECTION CABLE ($39), (5) TRS-80 TECHNICAL MANUAL ($9.95), (6) TRS-80 QUICK PRINTER 
($499) and (7) a LINE PRINTER STAND ($99). 

NEW FROM MICROTRONIX (PAGE 24) 

RS-232 INTERFACE ($99) - available immediately. 

RADIO SHACK compatibledisk drives ($350) - available immediately. 

MICROTRONIX has a special case for RADIO SHACK disk drives (as well as disk drives purchased 
anywhere else). The case will hold 3 disk drives. The case has a 16 AMP power supply with a fan and air 
filter (to solve the disk drive heating problem). The cost of the case and 3 disk drives is $1400 (or $300 
without the disk drives). Immediate delivery is available. 

Also available for immediate delivery - 16K memory ($140) and the RADIO SHACK EXPANSION 
INTERFACE. 

Three cassettes are available at $9.95 each or 3 for $19.95 

(1) A RENUMBERING PROGRAM, (2) A PROGRAM FOR MERGING TWO OR MORE PROGRAMS and 
(3) A STATEMENT ANALYSIS PROGRAM (locates and lists all branches such as GOTO and GOSUB). 

For more details, call (800) 523-4550. 

LOWER CASE MODIFICATIONS 

There are a couple of companies selling a lower case modification for the TRS-80. Several readers have 
reported that the LOWER CASE MODIFICATION doesn't work. If you have any further information 
related to LOWER CASE MODIFICATIONS, please call. 

RADIO SHACK'S TOLL FREE NUMBER 

You can now call 1-800-433-1679 and reach computer services directly. RADIO SHACK COMPUTER 
SERVICES has a staff of 20 experts that can answer many of your computer questions. In order to avoid 
typing up the line, you leave your name and telephone number„.and someone on the staff will promptly 
call you back. This is the same toll-free number that was formerly used by the TANDY COMPUTER 
STORE. 

NEXT MONTH....A COMPLETE RANDOM ACCESS MAILING LIST AND CUSTOMER INFORMATION 
PROGRAM. 
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ADDENDUM TO LEVEL II BASIC REFERENCE MANUAL 

The following information has been obtained directly from RADIO SHACK and does not appear in the 
LEVEL II MANUAL: 

1. After an INPUT # is performed from cassette, subsequent READ statements will automatically 
RESTORE data each time a READ is performed. To fix this, simply perform the statement 
POKE1 6553,255 before the first READ is performed. (LEVEL II only-not a problem in DISK 
BASIC). 

2. When performing an INPUT # from cassette, the maximum number of bytes which can be read is 
248. This does not affect disk operations. 

3. If the RESET button is pressed when the expansion interface is attached to the TRS-80, any 
programs in memory will be lost.* 

4. If a BASIC program is stopped during execution, and alteratios are made to the program, or EDIT 
mode is entered, then ALL VARIABLES will be set to zero. The program must be RUN again from 
the beginning. 

5. If an LPRINT or LLIST is performed without a TRS-80 lineprinter being attached, the computer 
will "freeze-up". The user must press RESET or attach a lineprinter and turn it on. 

6. Ail functions in LEVEL II BASIC always return single precision values (6-7 digits of accuracy).** 
Ail trigonometric functions use or return radian angles. Use of degrees angles are described in 
the LEVEL II BASIC MANUAL 

7. Frequent occurrences of SYNTAX errors may be caused by one of two subtle erros. (a) If a letter 
or the ©-symbol were typed with the SHIFT key depressed, the letters will appear to be correct 
on the screen, but are really invalid. Try retyping the line, and beware of the SHIFT key. (b) Some- 
times a pace is required in a BASIC statement. The following line is incorrect: 

IFDOD=0 

The characters "OD" represent a double precision zero. The correct statement reads (note the 
space and THEN) 

IFD<0THEN D=0 

8. The format of a CLOAD? command to verify from cassette #2 is 

CLOAD#-2,? 1, filename M 
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*FREEZE-UP PROBLEMS 

In our readers survey, several people have complained about random freeze-up problems. Reports from 
readers state that these "freeze-ups" have occurred from time to time, but not frequent enough to 
necessitate repairs. To lose as little information (data or program) as possible, turn off the interface, then 
press the reset button. You will lose any data in the interface (if you have more than 1 6K) , but will not lose 
your program (or data with 1 6K). These "freeze-ups" may be due to heat. One reader claims that he has 
eliminated the problem by placing a small fan next to his computer. 

**ALL FUNCTIONS HAVE 6-7 DIGIT ACCURACY 

Functions such as square root, exponents, sine, cosine, etc. yield only 6 or 7-digit accuracy (despite the 
implied 16-digit accuracy). The 6 or 7-digit accuracy is especially disastrous is business programs 
requiring exponentiation. We have compiled several routines that will give 16-digit accuracy to most 
functions (especially exponents and square roots). They will be published next month. 

NEVER PULL OUT THE CASSETTE RECORDER JACKS! 

Robert Andrew (#6238) found a simple method of avoiding the sometimes necessity of pulling out the 
cassette recorder jacks. PRESS FAST FORWARD or REWIND on the cassette recorder. Type PRINT 
#1 , A on your keyboard, then PRESS ENTER. The tape will move exactly 40 units (according to the tape 
counter). Any program or data in memory will not be affected. PRESS STOP (on the cassette recorder) to 
move less than 40 units. To move more than 40 units, PRESS PRINT #-1,A: PRINT #-1,A (to move 80 
units) or PRINT #-1,A: PRINT #-1,A: PRINT #-1,A (to move 120 units), etc. 

SPECIAL SOFTWARE FOR DOCTORS 

The Canadian Medical Association in Ottawa, Canada has developed a package of programs for the 
TRS-80 LEVEL II. These programs called A,B,C~Appointment (including registration), Billing 
(including accounting) and Cumulative Patient Profiles. These programs are currently being tested and 
will soon be available to interested practitioners. Write to CAPO SYSTEM (Computer-Aided Physicians' 
Offices), Dr. J.F. Brandejs, Director, The Canadian Medical Association, P.O. Box 8650, Ottawa, 
Ontario, Canada K1G 068. 

OUR NEW SOFTWARE CATALOG 

Please do hot request our free SOFTWARE CATALOG (advertised in BYTE, KILOBAUD, CREATIVE 
COMPUTING and PERSONAL COMPUTING). Subscribers will be the first ones to get it. The new 
catalog will, contain the largest list of TRS-80 software available. 

S-100 BUS...TELEPHONE INTERFACE II 

The S-100 BUS and TELEPHONE INTERFACE II will be released by RADIO SHACK within the next 
90-days. 
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INVENTORY CONTROL FOR TRS-80 
by 



DR. PETER SHENKIN 

The management of inventory is one of the businessman's prime responsibilities. Knowing what fs in 
stock and how much it cost, knowing what items have been selling, knowing what items need reordering, 
etc. can make the difference between a successful and an unsuccessful enterprise. With the advent of the 
microcomputer in general and the TRS-80 in particular, it is now possible for the small businessman to 
implement a computerized inventory system which will do all of the above, if desired, and more. The 
accompanying program is written for a 16K Level II machine and needs neither expansion interface nor 
printer to run. Obviously a printer would be quite handy for printouts of reports. As listed, the system 
is dimensioned for 50 different kinds of inventory items. With REM statements deleted there should be 
memory space for about 100 items A disk system would increase the allowable number of items quite a 
bit. The beauty of the below system is that it works on a computer which sells for less than $1000. 

To see what the system can do one need only RUN the program and examine the menu which appears as 
follows: 

INVENTORY CONTROL 
ENTER NUMBER OF DESIRED OPTION. 

1. ADD ITEM TYPES TO INVENTORY FILE (OR START FILE) 

2. INVENTORY LIST (ENTIRE OR BY CLASS OR BY VENDOR) 

3. PROCESSING CHANGES OF INVENTORY AMOUNTS 
' 4. READ INVENTORY FILE FROM CASSETTE 

5. WRITE INVENTORY FILE ONTO CASSETTE 

6. UPDATE TO BEGIN NEW INVENTORY PERIOD 

7. ACTIVITY REPORT 

8. EDITING INVENTORY FILE 

9. END THIS PROGRAM 

INPUT OPTION NUMBER & PRESS ENTER? 

The first option to choose is 4 if an inventory file is already stored on cassette. Otherwise 1 is the 
choice as a file must be created. We'll choose option 1 here. For our inventory items we picked some 
selections from the Radio Shack 1 979 catalog and invented amounts for variables not mentioned in the 
catalog (e.g. dealer cost, amount of sales). Our procedure will be to enter seven items into inventory, 
manipulate the inventory somewhat, save it on cassette, then read the cassette file and add five 
additional items to inventory. 
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In the following, our replies to machine queries will be enclosed in " » marks. Comments will 

generally be enclosed in ( ). Machine output will always be printed in CAPITALS. 

On the last line of the menu we press " 1 " and ENTER. We see: 
ADDITIONAL INVENTORY ITEM SUBROUTINE 

HAS ANY EXISTING FILE BEEN READ FROM THE TAPE? (Y/N)? " Y " 

(Try N here and you are sent back to the MENU. Try anything besides Y or N and you will see 
INPUT ERROR. ENTER AGAIN. Then the machine cycles back to the above Y/N question.) 

INPUT DATA FOR NEXT ITEM 

ITEM NUMBER ? « 26-1151 " 

DESCRIPTION ( < 20 CHARACTERS) ? " SCREEN PRINTER " 

VENDOR NUMBER ? » 2 6 " 

(Instead of a vondor number an item class code could be put in here. In fact, we have just taken as 
our vendor number that part of the R.S. catalog number coming before the hyphen ) 

QUANTITY ON HAND ? " 1 " 

LAST ORDER UNIT COST ? •« 40 o " 

SELLING PRICE ? ■• 599 .. 

AVERAGE UNIT COST ? « 350 » 

(The average cost per unit is automatically recomputed after the record of each new shipment is 

entered into this program via the use of option 3.) 
REORDER POINT ? " " 

(When making use of option 2, INVENTORY LIST, the user may obtain a list of all those items 

whose QUANTITY ON HAND have fallen below their REORDER POINT) 
MAXIMUM INVENTORY ? •■ 2 " 

# SOLD THIS INV. PERIOD ? " 1 " 

# SOLD LAST INV. PERIOD ? " " 

# SOLD 2 INV. PER. AGO ? " " 

(The first two of these last three items are used in the ACTIVITY REPORT of option 7.) 

(We now see the following printout for this item:) 



ITEM NO. 

VENDOR NO. 

QUANT. ON HAND 

SELLING PR. : 599 

REORDER PT. : 

ORDERS THIS INV. PERIOD: 1 

ORDERS LAST INV. PER: 



26-1151 
26 

1 LAST UNIT COST; 
AVERAGE COST: 350 
MAX INV. : 2 



PREV. PER: 



DESCRIPT. :SCREEN PRINTER 



400 
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IF OK PRESS 1, OTHERWISE PRESS 0? "1" 

(If is pressed here all the questions about this item are repeated. For any question already 
answered correctly just press ENTER. For those questions answered in error just fill in the correct 
entry when prompted.) 

DO YOU DESIRE MORE ENTRIES? (Y/N)? " Y " 

(An N here sends you back to the menu, but with the just entered item now on the inventory list.) 

INPUT DATA FOR NEXT ITEM. 

ITEM NUMBER ? "26-1150" 

From here on we just repeat the above process for item 26-1150 and then for 5 additional items, for a 
total of 7 items on our inventory file. After the seventh item, which is a multitester kit, # 28-4014, when 
we are prompted with DO YOU DESI RE MORE ENTRIES (Y/N)? we reply with N. Then we find ourselves 
back at the menu. 

Now we are shipped 2 screen printers at a cost to us of $420 a piece. On the menu by INPUT OPTION 
NUMBER & PRESS ENTER? we press 3. and ENTER. The following takes place: 

CHANGING INVENTORY AMOUNTS 

FOR EACH ITEM OF INTEREST ITWILLBENECESSARYTOENTERTHEITEM NUMBER AND PRESS 
ENTER INFORMATION ABOUT THAT ITEM WILL THEN BE DISPLAYED. THEN THE USER MUST 
INDICATE WHETHER THE ITEM SUPPLY IS BEING DIMINISHED OR INCREASED, AND BY HOW 

MUCH. .... 

(The above stays on the screen for a few seconds. If this time is not sufficient it may be increased 

by changing the 200 in step 1695 to some larger integer.) 

ITEM NUMBER :? "26-1151" 

jTEMN0 . : 26-1151 DESCRIP. :SCREEN PRINTER 

VENDOR NO. : 26 

QUANT. ON HAND : 1 LAST UNIT COST: 400 

SELLING PR. : 599 AVERAGE COST: 350 

REORDER PT. : MAX INV. : 2 

ORDERS THIS INV. PER: PREV. PER: 

INPUT A FOR ADDITIONS, D FOR DELETIONS, R FOR END 

? " A" 

INPUT NO OF UNITS TO ADD? "2" 

UNIT COST? " 

PRESS 1 AND ENTER IF IN ERROR. JUST ENTER IF OK? (Press ENTER) 

(If 1 was pressed here the old information about the item would be printed as above and we would 

start from INPUT A FOR ADDITIONS.) 
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DO YOU DESIRE MORE ENTRIES?(Y/N)? " N " 

(AY here would have brought us to ITEM NUMBER :?) 

(A check of the 26-1151 record at this moment would show a QUANT. ON HAND of 3 and an 

AVERAGE COST of 396.66) 

We now see the MENU in front of us again. Suppose we want a listing of all information we have on all 
items in inventory. This information cannot reasonably fit on one line we have chosen to present it a 
block at a time just as we have presented the information on item 26-1151 several times already. The 
information on each item stays on the screen for about 10 seconds. Then information on the next item in 
inventory is displayed. If you wish to examine the information on one item for a longer length of time, 
pressing SHIFT @ will stop processing and keep the given item in display. A touch of any button has the 
effect of resuming processing. There are many types of reports which may be displayed on the screen. 
Many times, one prefers to display just a little information about each item but to print information on 
several items together. This is done in the ACTIVITY REPORT of option 7. We shall see the activity report 
later. To get out INVENTORY LIST we choose option 2 and get: 

CHOOSE DESIRED OPTION A^D PRESS ENTER 

1. COMPLETE INVENTORY LIST 

2. INVENTORY LIST BY VENDOR 

3. LIST OF ITEMS BELOW REORDER POINT 
OPTION #? " 1 " 

(We now get the printout, one item at a time, about 10 seconds per item. When done we auto- 
matically return to the MENU.) 

Now we wish to save the seven items in our inventory on a tape file. This involves option 5. We press 5 and 
ENTER and get: 

PREPARE TAPE RECORDER AND INV. TAPE. 

PRESS ENTER WHEN READY? 

(We put a new cassette into the cassette player, wind the cassette past the leader and press 
down the PLAY and RECORD buttons. We then press ENTER. The inventory file is now recorded 
onto the cassette. We can now turn off the computer.) 

Now suppose it is a little later and we wish to place 5 more names on the inventory file. We get the 
program tape and load the inventory program into the TRS-80. We might try option 1 first, but the 
question HAS ANY EXISTING FILE BEEN READ FROM TAPE?(Y/N)? should remind us to load the 
inventory data tape. We answer N to the question and try option 4. We get the following: 
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PREPARE TAPE RECORDED AND INV. TAPE. 

PRESS ENTER WHEN READY? 

(We press ENTER and the inventory file is read into the machine. A note is in order here. On our 
TRS-80 we have experienced some difficulty in reading data files into the machine from cassette 
with 100% accuracy. The reading in step 4 may have to be repeated several times before it comes 
out correct. The machine may generate an error (FD error occurs aiot). Just press RUN and start 
again) 

After the file is read the MENU is again displayed. We now use option 1 to add 5 more items to the 
inventory file, for a total of 12. When done we press N in answer to the DO YOU DESIRE MORE 
ENTRIES?(Y/N)? question and return to the MENU. 

We now decide that we would like to change the MAXIMUM INVENTORY amount for the SCREEN 
PRINTER from 2 to 3. To do this option 8, EDITING INVENTORY FILE is necessary. We choose option 8 
and see: 



EDITING ITEM ENTRIES 

FOR EACH ITEM MAKE THE APPROPRIATE CHANGES AND PRESS ENTER AFTER EACH CHANGE. 
JUST PRESS ENTER WHEN ITEM IS NOT CHANGED. 



(In about 3 seconds we see: 

ITEM NUMBER (99999 FOR RETURN)? 
(Then we get:) 



"26-1151" 



DESCRIP. :SCREEN PRINTER 



ITEM NO. :26-1151 

VENDOR NO. :26 

QUANT. ON HAND: 3 LAST UNIT COST: 400 

SELLING PR. : 599 AVERAGE COST : 3^6.66 

REORDER PT. : MAX INV. : 2 

ORDERS THIS INV. PERIOD : 1 

ORDERS LAST INV. PER: PREV. PER: 



ITEM NUMBER 
DESCRIPTION ( 20 CHAR) 
VENDOR NUMBER 
QUANTITY ON HAND 
LAST ORDER UNIT COST 
SELLING PRICE 
AVERAGE UNIT COST 
REORDER POINT 
MAXIMUM INVENTORY 

# SOLD THIS INV PERIOD 

# SOLD LAST INV PERIOD 

# SOLD 2 INV. PER. AGO 



? 
? 

? 
? 
? 
? 
? 
? 



(We 
(We 
(We 
(We 
(We 
(We 
(We 
(We 



press 
press 
press 
press 
press 
press 
press 
press 



? (We press 

? (We press 

? (We press 
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(The block printout of all the information about the SCREEN PRINTER now flashes on the screen, 
but the MAX INV. entry now equals 3. On the screen we also see the question:) 

DO YOU DESIRE MORE ENTRIES ?(Y/N)? "N " 
(The MENU now flashes on the screen.) 

We would like a listing of the activity (sales) of each item for several consecutive inventory periods. An 
inventory period could be a year, quarter, month, week or even a day depending upon the enterprise. 
This involves option 7. ACTIVITY REPORT. We choose option 7 and get: 



ITEM NO. DESCRIPTION 

26-1151 SCREEN PRINTER 

26-1150 LINE PRINTER 

26-1140 EXPANSION INTER 

64-2227 SOLDER KIT 

28-174 METAL DETECTOR 

28-4014 MULTITESTER KIT 

28-4004 INTERCOM KIT 

28-182 LIE DETECTOR KIT 

21-1531 40 CHANNEL CB 

31-2076 120 WATT RECEIVER 



ON HAND THIS PER. LAST PER. 



3 

2 

4 

15 

2 

3 

4 

2 

1 

1 



1 
4 
5 
3 
1 
2 
3 
9 
1 
1 




5 
3 
5 

3 
4 






PRESS ENTER FOR MORE OF REPORT? (We press ENTER) 

ITEM NO. DESCRIPTION ON HAND THIS PER. LAST PER. 

40-2028 SPEAKER SYSTEM 2 2 2 

12-775 SHORTWAVE RADIO 3 2 3 

END OF REPORT. PRESS ENTER TO RETURN TO MENU? (We press ENTER) 

(Since this system was designed to be usable without a line printer the ACTIVITY REPORT is 
displayed 1 entries at a time. This may be easily modified. It actually makes the report very usable 
for someone with a SCREEN PRINTER.) 

There are several things we have not done yet. Option 6, UPDATE TO BEGIN NEW INVENTORY 
PERIOD, is used at the beginning of an inventory period. When invoked, this option sets ail ORDERS 
THIS INV. PERIOD entries to 0, changes ail ORDERS LAST INV. PER entries to the old ORDERS THIS 
INV. PERIOD entries for the same item and also replaces the PREV. PER entries with the old ORDERS 
LAST INV. PER entries. For example, if we invoked option 6 and then ran an ACTIVITY REPORT, the first 
two lines of the activity report would be: 



ITEM NO. 

26-1151 



DESCRIPTION 

SCREEN PRINTER 



ON HAND THIS PER. LAST PER. 

3 1 
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This inventory system is far from complete, its biggest drawback is probably that it is not designed for 
use by either line printer or disk. This limits applicability in an obvious manner. Hard copy reports are 
generally desired and many small businesses have more than 100 or so types of inventory items. It 
happens that it is relatively simple to redesign the system to handle both printer and disk. Another 
possible problem is that the integrity of data recorded on cassette does not seem as high as that recorded 
on disk. We have gotten many recording errors. Possibly a higher quality tape would be helpful. We're 
just not sure. But it would be quite something if 599.95 was changed to 199.95 without anyone knowing. 

The astute reader will notice that no provision has been made for entirely removing an item from 
inventory. This would be a simple addition. It probably would also be handy to have a routine which 
would sort inventory data so that reports come printed either sequentially by ITEM NO. or possibly 
alphabetically by DESCRIPTION* Option 2 does have the ability to produce a list of ail items which have 
reached the REORDER PT. 

Everyone who uses inventory reports has some of his own pet reports. These probably are not included 
here, if the necessary data is included then it should be relatively simple to produce just about any report. 
If the information has not been provided then the user may modify the inventory file accordingly. This 
should also be easy. Remember, however, the more that is in the file, the fewer the number of items that 
can fit on the file. 





SOFTWARE! 

TES! QUALITY SOFTWARE FOH THE THS-80 IS 
NOW WRITTEN & AVAILABLE. BCC IS PLEASED 
TO BE ABLE TO PRESENT SOME VERY FINE 
SOFTWARE NOW WITH EVEN MORE AVAIL- 
ABLE IN THE VERY NEAR FUTURE. ALSO WE 
DEVELOP CUSTOM DESIGNED SOFTWARE FOR 
YOUR EVERY NEED. WRITE US FOR A FREE 
PRICE QUOTE. 



>»WHEN YOU THINK SOFTWARE THINK BCC! «< 

EXPENSE REPORTING SYSTEM-522.95 Level II 

Requires 16K of RAM. Keeps track of up to 50 Expense Categories for a full 

year. Gives monthly, quarterly and annual totals of expenses. For the small 
business or home use. 

BACKGAMMON-S19 .9& Levels I & II 

Requires 16K of RAM. PLAY AGAINST THE COMPUTER and lose The com- 
puter plays a pretty good game! 

SPACETREKS0-S9.95 Levels I & II 

Requires 16K of RAM Play a strange game of blowtng-up stars to find star 
bases. Watch out for those antimatter mines Tune-in on your AM radio for 
strange sound effects 

ASTRONOMY SIGHT REDUCTION-S24.95 Levels I & II 

Requires 8K of RAM. For Astronomers. Convert Right Ascension and Declination of 
celestial objects So Azimuth (compass dir.j & altitude (degrees). Creates a 24 hour 
table in siderial and standard times 

ORDER NOW! AH programs come on quality cassettes Programs are available 

on diskette for an additional charge of $7.00 per order NYS residents add 7 a / D . 

Checfc boxes of items being orbefed: 

# of items ordered............. ,.„..... Total amount enclosed . ..{Ail items must be 

prepaid ) 

B35 21 friendly rd. 

smlthtown ny 11787 
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INVENTORY CONTROL 
BV 

DR. PETER SHENKIN 



10 

20 

30 

40 

50 

60 

70 

80 

30 

95 

120 

130 

190 

200 

210 
230 
240 

400 

41© 
420 
425 
430 
440 
450 
460 
470 
480 
483 
486 
490 

500 

510 
520 
540 

1000 
101© 

1015 

1020 
1030 
1040 
1050 
1060 
1070 

1075 



INS 



ENTORV CONTROL FOR TRS-80 

BV DR. PETER SHENKIN 

THIS PROGRAM IS DESIGNED FOR A 16K LEVEL II TRS-80. 
IN ITS PRESENT FORM AN EXPANSION INTERFACE IS NOT 
NEEDED. A LIMITATION IS THAT ONLY 50 DIFFERENT KINDS 
OF ITEMS MAY BE HANDLED. FOR ESTABLISHMENTS WITH 
LARGER INVENTORIES, OR WHERE HARD COPY IS NEEDED WE 
SUGGEST THE R. S. BUSINESS SYSTEM. A DISK-BASED VERSION 
OF THIS PROGRAM IS AVAILABLE. 



D*<50>, V*<50>, GK50X. LK50>, P 
"i0:j, S<3, 50> 



50 >, AC<50> 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM 

PRINT 

CLEAR 2500 

DIM N*<50>, 

DIM RL<50>, RAC 

NI=0 

GOSUB 3200 

CLS 

PRINT " 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT "INPUT OPTION NUMBER & PRESS ENTER".; OP 

ON OP GOSUB 1000, 1300, 1600, 19O0, 2200, 2500, 3000, 3500, 2800 

GOTO 400 
REM SUBROUTINE FOR ADDING ITEM TYPES TO INVENTORY FILE 
CLS 

PRINT "ADDITIONAL INVENTORY ITEM 5 
PRINT "HAS ANY EXISTING FILE BEEN 



ENTER 



INVENTORY CONTROL" 
NUMBER OF DESIRED OPTION. 



"1. ADD ITEM TYPES TO INVENTORY FILE COR START FILE}" 
"2. INVENTORY L I ST < ENTIRE OR BY CLASS OR BV VENDOR V 
"3. PROCESSING CHANGES OF INVENTORY AMOUNTS" 
"4. READ INVENTORY FILE FROM CASSETTE" 
"5. WRITE INVENTORY FILE GOTO CASSETTE" 
"6. UPDATE TO BEGIN NEW INVENTORY PERIOD" 
ACTIVITY REPORT" 

FILE" 



"? 



•&. EDITING INVENTORY 
'9. END THIS PROGRAM" 



SUBROUTINE" : PRINT 
READ FROM TAPE?<V/N>; 



INPUT Z9* 
IF Z9*="N" 
IF Z9*="V" 
GOSUB 5200 
GOTO 1010 
■I-NI+1 



GOTO 
GOTO 



1290 
1075 
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1088 CLS 

1085 PRINT "INPUT DATA FOR NEXT ITEM. ": PRINT 

1030 QOSUB 6700 

1230 REM EXHIBIT DISPLAY FOR THIS ITEM 

1240 QOSUB 6000 

1250 GOSUB 6200 

1260 IF Z8=0 GOTO 1080 

1270 GOSUB 6500 

1280 NI=NI+1 : IF Z9*= "V" GOTO 1075 

1290 RETURN 

130© REM SUBROUTINE GIVING INVENTORY LIST 

1310 CLS:PRINT "CHOOSE DESIRED OPTION AND PRESS ENTER" 

1320 PRINT "1. COMPLETE INVENTORY LIST" 

1330 PRIWT "2. INVENTORY LIST BV VENDOR" 

1340 PRINT "3. LIST OF ITEMS BELOW REORDER POINT" 

135© INPUT "OPTION # "; N8 

1360 ON N8 GOSUB 1380, 1410, 1448 

1370 RETURN 

138© FOR 1=1 TO NI 

1390 GOSUB 6000 

1480 FOR J = 1 TO 2090: NEXT J 

1403 NEXT I 

1405 RETURN 

1410 INPUT "DESIRED VENDOR NUMBER "; VN* 

1420 FOR 1=1 TO NI 

1430 IF V*<I><>VN* GOTO 1435 

1432 GOSUB 6000 

1433 FOR J=l TO 300 :NEXT J 

1434 FOR J= 1 TO 1000: NEXT J 

1435 NEXT I 

1439 RETURN 

1440 FOR 1= 1 TO NI 

1450 IF GKI> >= RL<I> GOTO 1470 

1460 GOSUB 6080 

1465 FOR J= 1 TO 1OO0 : NEXT J 

1470 NEXT I 

1480 RETURN 

1600 REM SUBROUTINE FOR CHANGING INVENTORY AMOUNTS 

1618 REM AVERAGE COST AUTOMATICALLY CHANGED WITH ADDITIONS 

1615 REM TO INVENTORY 

1620 CLS 

1630 PRINT " CHANGING INVENTORY AMOUNTS" 

1640 PRINT 

1658 PRINT "FOR EACH ITEM OF INTEREST IT WILL BE NECESSARY TO 

1660 PRINT "ENTER THE ITEM NUMBER AND PRESS ENTER. INFORMATION 

1670 PRINT "ABOUT. THAT ITEM WILL THEN BE DISPLAYED. THEN THE 

1688 PRINT "USER MUST INDICATE WHETHER THE ITEM SUPPLY IS BEING" 

1690 PRINT "DIMINISHED OR INCREASED, AND BY HOW MUCH." 

1695 FOR 1=1 TO 200 : NEXT I 
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•1790 CLS 

1705 1=0 

1710 PRINT 328, "ITEM NUMBER : "; : INPUT IT* 

1720 I = 1+1 

1730 IF IT*=N*<I> GOTO 1800 

1740 IF I=NI GOTO 1770 

1750 GOTO 1720 

1770 PRINT: PRINT "ITEM NOT ON INVENTORY LIST " 

1775 FOR J=l TO 200 : NEXT J 

1780 GOTO 1870 

1800 GOSUB 6000 : REM LIST ITEM INFORMATION 

1810 PRINT "INPUT fl FOR ADDITIONS, D FOR DELETIONS. R FOR END" 

1812 INPUT R* 

1814 IF R* = "R" RETURN 

1815 IF R*="A" OR Rt="D" GOTO 1820 
1817 GOSUB 5200 

1819 GOTO 1800 

1820 IF R*="A" GOTO 1840 

1822 CLS: PR I NT "HOW MANY ITEMS DO VOU WISH TO DELETE"; .INPUT Ql 

1824 IF Ql<= GKI> GOTO 1828 

1825 PRINT: PRINT "ONLV ";GKIX;" ITEMS IN INVENTORY. TRY AGAIN" 

1826 FOR 1= 1 TO 300 : NEXT I 

1827 GOTO 1822 

1828 PRINT "ARE VOU SURE VOU WANT TO DELETE "; Ql.i " ITEMS<VXN> " : 

1829 INPUT Z9* 

1831 IF Z9*="Y" OR Z9*="N" GOTO 1834 

1832 GOSUB 5200 

1833 GOTO 1828 

1834 IF Z9*="N" GOTO 1800 

1835 Q < I > =Q < I > - Ql : S < 6, I > =S < 8, I > +Q1 

1836 GOTO 1870 

1840 INPUT "INPUT NO. OF UNITS TO ADD"; Ql 

1845 INPUT "UNIT COST".: U I 

1847 Z5=8 

1850 INPUT "PRESS 1 AND ENTER IF IN ERROR. JUST ENTER IF 0K":Z5 

1855 IF Z5=l GOTO ISO© 

1858 AC= < AC < I > *Q < I > +Q1*U I > / < Q < I > +Q1 > 

1859 AC < I > = I NT < 100* AC > /180 

1860 Q<I>=Q<I> + Ql 
1865 GOTO 1878 
1870 GOSUB 6500 

1875 IF Z9*= "V" GOTO 1700 

1888 RETURN 

1980 REM SUBROUTINE FOR READING INV. FILE FROM CASSETTE 

1910 CLS: PRINT "PREPARE TAPE RECORDER AND INV. TAPE " 

192© INPUT "PRESS ENTER WHEN READY"; Z7 

1930 INPUT #-1, NI 

1940 FOR 1=1 TO NI 

1950 GOSUB 5008 

I960 NEXT I 

1970 RETURN 
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2260 REM SUBROUTINE FOR WRITING INV FILE ONTO CASSETTE 

2210 CLS:PRINT "PREPARE TAPE RECORDER AND INV. TAPE. " 

2220 INPUT "PRESS ENTER WHEN READY"; Z7 

2230 PRINT #-1, NI 

2240 FOR 1= 1 TO NI 

2250 QOSUB 5100 

2260 NEXT I 

2270 RETURN 

2500 REM UPDATE TO BEGIN NEW INVENTORV PERIOD 

2510 FOR 1=1 TO NI 

2520 S<2, I> = S<1, I> : S<1, I >=S<@, I > : S<0, I> =0 

2530 NEXT I 

2535 CLS:PRINT "UPDATE COMPLETE" : FOR 1=1 TO 200 : NEXT I 

2540 RETURN 

2800 REM END PROGRAM SUBROUTINE 

2805 CLS 

2810 INPUT" ARE VOU SURE VOU WISH TO END PROGRAM<V/N> "i Z7* 

282© IF Z7*="N" RETURN 

2830 IF Z7$="V" END 

2840 GOSUB 5200 

2850 GOTO 2805 

3000 REM SUBROUTINE FOR ACTIVITY REPORT 

3010 CLS: GOSUB 3300 

3020 FOR 1= 1 TO NI 

3030 GOSUB 3250 

3040 IF I/IO = INT<:i/10> GOTO 3070 

3050 NEXT I 

3055 'PRINT 

3056 INPUT "END OF REPORT. PRESS ENTER TO RETURN TO MENU"; Z4 

3060 RETURN 

3070 PRINT: INPUT "PRESS ENTER FOR MORE OF REPORT"; Z4 

3080 CLS 

309© GOSUB 3300 

3100 GOTO 305© 

3200 REM SUBROUTINE WITH PRINTUSING FORMAT VARIABLES 

3210 H*="ITEM NO. DESCRIPTION ON HAND THIS PER. LAST PER. 

3220 z$="x y. •/. y. #### #### #### ■ 

3225 RETURN 

3250 REM SUBROUTINE FOR PRINTING ACTIVITY INFORMATION 

3260 PRINTUSING ZSv N*< I >, D*< I >> Q< I >, S<0, I >, S<1, I > 

3270 RETURN 

3300 REM SUBROUTINE FOR PRINTING HEADING 

3310 PRINTUSING H*j ZZ$ 

3320 RETURN 
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3560 REM EDITING SUBROUTINE 

3510 CLS 

352© PRINT " EDITING ITEM ENTRIES" 

3530 PRINT 

3540 PRINT "FOR EACH ITEM MOKE THE APPROPRIATE CHANGES AND" 

3550 PRINT "AND PRESS ENTER AFTER EACH CHANGE. JUST PRESS 

3560 PRINT "ENTER WHEN ITEM IS NOT CHANGED. " 

3570 FOR 1= 1 TO 1000 : NEXT I 

3580 CLS 

3590 1=0 

3600 PRINT e 320, "ITEM NUMBER C 99999 FOR RETURN >"; : INPUT IT* 

3610 IF IT*="99999" RETURN 

3620 1=1+1 

3630 IF IT*=N*CI> GOTO 3788 

3648 IF I = NI GOTO 3670 

3650 GOTO 3620 

3670 PRINT: PRINT "ITEM NOT ON INVENTORY LIST. " 

3675 FOR J=l TO 288 : NEXT J 

3680 GOTO 3755 

3700 GOSUB 6800 : REM LIST ITEM INFORMATION 

3718 PRINT 

3720 GOSUB 6700 

3738 CLS 

3740 GOSUB 6000 

3750 PRINT: PRINT 

3755 GOSUB 650© : REM QUERY SUBROUTINE 

3768 IF Z9*="V" GOTO 3590 

3780 RETURN 

5000 REM SUBROUTINE FOR READING RECORD FROM CASSETTE 

5010 I NPUT #-1, N* C I > , D* C I > , V* C I > , Q C I > , U C I > .- P C I > .■ AC C I > , RL C I > , 

A< I >, SC8, I >, S<1, I >, SC2, I > 

5828 RETURN 

5108 REM SUBROUTINE FOR COPYING RECORD ONTO CASSETTE 

5110 PRINT #-1, N*< I :>, D*C I >, V*< I >, QC I >, U< I >, PC I >, AC-:: I >, RLC I >, 

AC I >, SCO, I >, SCI, I >, SC2, I > 

^dLS© RETURN 

5260 REM SUBROUTINE FOR INPUT ERROR 

5210 PRINT: PRINT "INPUT ERROR. ENTER AGAIN. " 

5220 FOR K=l TO01808 : NEXT K 

5238 PRINT: RETURN 

6888 REM SUBROUTINE DISPLAYING DATA FOR 1 ITEM 

6818 CLS 

6828 PRINT "ITEM NO. : ".; N*C I >.s " DESCRIP. :".;D*CI> 

6838 PRINT "VENDOR NO. : ".:V*CI> 

6848 PRINT "QUANT. ON HAND: "jQCI>j" LAST UNIT COST :' "j U<I> 

6850 PRINT "SELLING PR. : ".; PC I >.; " AVERAGE COST : ";ACCI> 

6868 PRINT "REORDER PT. : ".iRLCIX;" MAX INV. : ".;RACI> 

6878 PRINT "ORDERS THIS INV. PERIOD : "; SC8, I > 

6880 PRINT "ORDERS LAST INV. PER : "; SCI, I >j " PREV. PER:";SC2, I> 

6085 PRINT 

6090 RETURN 
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6260 REM OK SUBROUTINE 

6218 PRINT 

622© PRINT "IF OK PRESS 1, OTHERWISE PRESS 0";. : INPUT Z8 

6230 IF ZS=0 OR Z8=l GOTO 6270 

6240 GOSUB 5200 

6250 GOSUB 6000 

6260 GOTO 6210 

6270 REM 

6290 RETURN 

6500 REM QUERV SUBROUTINE 

6510 PRINT "DO VOU DESIRE MORE ENTRIES ?< V/N> ": INPUT Z9* 

6520 IF Z9*<> "V" AND Z9*<> "N" GOTO 6530 

6525 RETURN 

6530 GOSUB 5200 

6540 CLS : GOTO 6510 

6700 REM DPTFl ITEM INPUT SUBROUTINE 

6710 INPUT "ITEM NUMBER ";N*<I> 

6720 INPUT "DESCRIPTION'- < 20 CHflR> "iD*(D 

6730 INPUT "VENDOR NUMBER "jV*<I> 

6740 INPUT "QURNTITV ON HAND "jGKIX 

6750 INPUT "LAST ORDER UNIT COST "jLKI> 

6760 INPUT "SELLING PRICE ";P<D 

6770 INPUT "AVERAGE UNIT COST "iflCXI 

678© INPUT "REORDER POINT "iRL<I 

6790 INPUT "MAXIMUM INVENTORY "iRRCI 

6800 INPUT "# SOLD THIS INV. PERIOD "; S<0, I> 

6810 INPUT "# SOLD LAST INV. PERIOD "iS(LD 

6820 INPUT "# SOLD 2 INV. PER. AGO "; S<2.. I > 

6830 RETURN 
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'Jujt LOAD and GO' Software 

Pra-recorded Business Programs 

USEFULPRACTICALLOWCOST! 

DISPLAY only or DISPLAY/PRINTER 

• GENERAL LEDGER~Far horns businesses. 

and sole proprietorships, small cor- 
porations— 519.95 plus $1.50 ship- 
ping/handling. 
Requires 8K minimum user memory 

% CHECKING ACCOUNT-For persona! bank 

accounts— $19,95 plus $1.50 shipping/ 

handling 
Requires 8K minimum user memory 
RENT ACCOUNTS-Records (or rental proper 

ties— $16.95 plus $1.50 shipping/ 

handling 

• LEGAL DIARY — For attorneys {Client Accounts) 

$16.95 plus $1.50 shipping/handling 

• TRUST ACCOUNTS-For attorneys (Client Ac 

counts}— $16,95 plus $1.50 shipping/ 

handling 

Programs— MASTER and DEMO cassette, plus 2 PerCorn 

'Pilon-30' record cassettes— money bach guarantee— 

Complete instructions— Att programs copyrighted 

All mail orders must be pre-paid. 

t ,»i Computers one csi 

jlf*° S #306 Kahala Office Tower 

H«d 4211 Waialae Ave 

_ Honolulu HI 96816 {8031737 2933 



in*' 



TRS-SO 16K LEVEL II- 



FROM THE PROFESSIONALS AT RACET computes 

RENUMBER your, baste programs with REMODEL 

REnumber any section or an entire program, 
MOve any section from one location to another. 
DELete any line or range of program lines,. 

- Atl line references readjusted as required. 

- Gives the TRS-80 large system capabilities.. 

- Powerful, efficient, easy to use„ 

- Specify 16,32, or 48K when ordering. 

This utility ts an absolute NECESSITY 

Order TS21A at $24.95 
T1ME-SERIES Analysts/Modeling with T1MSER — — 
Nine 1st. 2nd, and 3rd order curve models. 
Goodness of fit, Durbin-Watson, coefficients. 
Variance, confidence limits, and projection* 
Graphic displays of curve fit and variance. 
Seasonal, inflation, cyclical provisions. 
•••• illustrated instructions, well DOCUMENTED •••« 
Order RD11Aat $14,95 
OPTICAL SYSTEMS Layout/Analysis with Y YBAR — 
Uses Delano Y-Y diagram to manipulate ray 
heights at lens surfaces and explore 1st order 
parameters. Alternate to paraxial ray trace. 
** Super programming tool for optica! DESIGNERS ** 
Order RA31 A at $19.95 
CASSETTE TAPES for Micros - LIMITED SPECIAL - 
Recording studio master quality. C-20 screw 
cassettes. Hard cases. Broad dynamic range, 
•*• Premium tapes - outstanding CONSISTENCY *** 
Order AKC1J at 10 for S14.95 
^24 check, VISA, M/C. Calif, residents add 6% 
RACET computet, 702 Paimdale, Orange, CA 92665 
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CREDIT CARD INFORMATION STORAGE 
BV 
STAN TISHLER 

5 GOSUB 3080 

10 CLEAR 3000 : CLS :DIMN*<150>,A*<150;>,P*<150>,Z*<150:>,X*<150> 

15 DIMV*«C150>, R*<150> 

20 CLS:PRINT@20, "* * SELECTION * *»:PRINT 

30 PRINTTAB<20>"1. TO BUILD A FILE" 

40 PRINTTAB<20>"2. TO SEE THE ENTIRE FILE" 

50 PR I NTT AB< 20) "3. TO SEE AN INDIVIDUAL NAME" 

60 PRINTTAB<20>"4. TO MAKE CORRECTIONS" 

70 PRINTTAB<20>"5. TO SAVE THE CURRENT FILE ON TAPE" 

80 PRINTTAB<20>"6. TO INPUT A FILE FROM TAPE" 

90 PRINTTAB<20>"7. TO ADD TO A FILE" : PRINT : PRINT 

95 PRINTTAB<19>; : INPUT Q:IF Q>7 OR Q<1 GOTO 20 

99 ON Q GOTO 110, 200, 300, 400, 500, 600, 700 

110 FOR 1=1 TO 50:CLS 

120 GOSUB 1000 

140 NEXT 

143 IF FRE<X*><100 GOTO 150, 

145 NEXT 

ISO PRINT'TILE CLOSED— ": INPUT "TO SEE THE SELECTOR HIT ENTER"; X 

160 GOTO 20 

200 A9*="1":CLS:FGR 1=1 TO Pi 

201 IF N*C i: ) = "END" THEN Pl=Pl-l:GOTO 210 
205 GOSUB 2000 

208 INPUT "PRESS ENTER FOR NEXT CARD <OR ENTER ' END ' > " ; A9$ : CLS 

209 IF A9*="END" THEN A9*="":G0T0 20 

210 NEXT I 

215 PRINT"FILE COMPLETE. "; PI; " CREDIT CARDS ON FILE " 

217 INPUT "FOR SELECTOR PRESS ENTER"; X: GOTO 20 

300 CLS: INPUT "ENTER THE NAME OF THE CREDIT CARD. "; N* 

318 FOR 1=1 TO PI: IF N*=N*<I> THEN 330 

315 NEXT I 

328 PR I NT "NAME NOT ON FILE": GOTO 340 

330 GOSUB2000 

340 PRINT: PR I NT "FOR ANOTHER CARD TVPE 1, OTHERWISE 0"; : INPUT X:CLS 

345 INPUT X:CLS 

358 IF X=l GOTO 300 ELSE 28 
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'ENTER THE NAME FOR THE CARD VOU WISH TO CHfiNGE. 



40@ CLS: PRINT 1 

465 INPUT N* 

410 FOR 1=1 TO PI: IF N$=N$<I> GOTO 421 

415 NEXT 

420 PR I NT" NAME NOT ON FILE": GOTO 488 

421 GOSUB 2000 

425 INPUT "DO VOU WANT TO CHANGE THIS RECORD <V/N>";Q* 

426 IF LEFT$<Q$, 1> = "N" GOTO 488 

427 PR I NT "SELECT THE ITEM VOU WISH TO CHANGE: 1. NAME 2 NUMBER 

428 PRINT "3. # OF CARDS 4. CARD HOLDERS 5. ADDRESS 

429 PRINT "6. PHONE NUMBER 7. EXPIRATION DATE 

430 PRINT "8. THE ENTIRE RECORD 9. END CHANGES" • INPUT Bl 

434 ON Bl GOTO 450,455,460,465,470,475,486,435,488 

435 INPUT "DO VOU WANT TO CHANGE THE ENTER RECORD <V/N>";A2* 
437 IF A2$="N" GOTO 427 

440 GOSUB 1000 
445 GOTO 488 

456 INPUT "CHANGE NAME <V/N>"; A2$: IF A2*="N" GOTO 427 
452 INPUT "ENTER NAME".; N*<I> : GOTO 427 

455 INPUT"CHANGE NUMBER <'tVN>"; A2*: IF A2*="N" GOTO 427 

457 INPUT "ENTER NUMBER " ; A* (I) :GOTO 427 

460 INPUT'THANGE # OF CARDS <V/N>"; A2*: IF A2$="N" GOTO 427 
462 INPUT"ENTER NEW # OF CARDS"; Z*<I> : GOTO 427 
465 INPUT "CHANGE CARD HOLDERS <V/N>"; A2*: IF A2$="N" GOTO 427 
467 INPUT"ENTER ALL CARDHOLDERS"; P$<I>:GOTO 427 

476 INPUT"CHANGE ADDRESS <V/N>"; A2$: IF A2*="N" GOTO 427 
472 INPUT "ENTER NEW ADDRESS"; X*<I> :GOTO 427 

475 INPUT'THANGE PHONE NUMBER <V/N>"; A2f: IF A2*="N" GOTO 427 

477 INPUT "ENTER NEW PHONE NUMBER"; V*<I> ■ GOTO 427 

486 INPUT "CHANGE EXPIRATION DATE <V/N>"; A2*: IF A2$="N" GOTO 427 

482 INPUT"ENTER NEW EXPIRATION DATE"; R*<I> :GOTO 427 

485 GOTO20 

488 INPUT"FOR ANOTHER CORRECTION TVPE '1", OTHERWISE '0"'j X 

498 IF X=l GOTO 400 

499 GOTO 28 

506 CLS: INPUT "MAKE PREFER AT IONS FOR CASSETTE " 
505 PRINT "WHEN READV HIT ENTER"; X 

510 PR I NT" COPV I NG 

520 PRINT#-1, PI 

525 FOR 1=1 TO PI 

530 PRINT#-1, N*< I ■>, m< I X. Z$< I >, P*< I >, X*<I >, V*< I >, R$< I > • NEXT 

540 PR I NT "COMPLETE— NOTE TAPE LOCATION 

550 INPUT "TO SEE THE SELECTOR, HIT ENTER"; X" GOTO 20 
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606 CLS:IHPUT"WHEN REflDV HIT ENTER"; X 

610 PR I NT "DATA BEING ENTERED 

620 INPUT#-1,P1 

625 FOR 1=1 TO PI 

630 INPUT#-1, N*< I >, A*< I >, Z*< I >, P* <I >, X*< I >, v*< I >, R*< I > NEXT 

640 PR I NT "COMPLETE": INPUT "TO SEE SELECTOR HIT ENTER" ; XGOTO20 

700 CLS: INPUT "HOW MANY ADDITIONAL NAMES ARE VOU ADDING"! B 

710 P1=P1+B 

720 FOR I=P1+1-B TO PI: CLS 

?30 GOSUB 1000 

770 IF FRE<X*><100 GOTO 7^0 

780 NEXT 

800 GOTO T ^0 ILE CL ° SED ~~" : INPUT " T0 SEE THE SELECTOR HIT ENTER"; X 

999 STOP 

1000 CLS 

1005 PRINT@960, "ENTER 'END'- WHEN DATA ENTRY 1^ COMPLETE " 

1006 PRINT@<0>, " " " 
1010 PR I NT "DO NOT USE ANV COMMAS OR COLONS " 

1012 INPUT"ENTER CREDIT CARD NAME";Nl*a> 

1013 IF LEN<N$<I>»24 PRINT"NAME TOO LONG" .GOTO 1010 
1015 IF N$<I>="END" THEN Pl=I:GOTO 150 

1020 INPUT"ENTER CREDIT CARD NUMBER"; A*< I > 

1021 IF LEN<A$<I>»20 PR I NT "TOO LONG. "GOTO 1020 
1023 INPUT "ENTER THE NUMBER OF CARDS RECEIVED"; Z*< I > 
1025 IF LEN<Z*a>»l PRINT'ERROR. REENTER. "GOTO 1023 
1030 INPUT"ENTER THE NAMES OF ALL CARD USERS"; P*<I> 

Jf?i IL^i^PP 22 PRINT "TOO LONG-USE ABBREVIATIONS. " : GOTO1030 
103^ PRINT-ENTER ADDRESS TO BE NOTIFIED IF CARD I* LO^T'! 

1034 INPUT" (STREET CITV STATE ZIP— NO COMMAS)"; X$< I -> 

1035 IF LEN<X*<I>»100 PR I NT "TOO LONG. ABBREVIATE. " GOTO 103^ 

1037 INPUT "ENTER PHONE NUMBER TO REPORT LOSS";Y*<n' 

1038 IF LEN<Y*<I>»12 PR I NT "TOO LONG. REENTER "GOTO 1037 

1039 INPUT "ENTER EXPIRATION DATE";R*<I> 
1050 RETURN 

2000 PRINTTAB<0>"CARD NAME"; TAB < 25 >" CARD NUMBER"; TAB<47> "EXPIRATION 
• DnTE 

2010 PRINTSTRING$<55, "-".•) 

2020 PRINTTAB<0>Nt< I >; TAB<25>A*< I >; TAB<53)R$< I > 

2025 PR I NTSTR I NG* < 55, " - " > 

2030 PR I NT "ADDRESS CITV STATE ZIP 

2050 PRINTX*<I> 

2055 PR I NTSTR I NG* < 55, " - " > 

2060 PRINTTAB<0> "TELEPHONE #";TAB<15>"# OF CARDS"; TAB < 28 V CARDHOLDERS" 

2080 PRINTTAB<0.W*<I>; TAB<19>Z*<I>; TAB<28>P*<n 

2090 PR I NTSTR I NG$ < 60, " = " > 

2100 RETURN 
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3008 CLS: PRINT" CREDIT CRRD INFORMATION STORAGE 

3010 PRINT" 

3020 PR I NT "THE PURPOSE OF THIS PROGRAM IS THE SAVING OF PERTINENT 
3030 PR I NT "CREDIT CARD DATA. WE ALL HAVE WALLETS FULL OF CREDIT CARDS 
3040 PR I NT "AND IF THEV ARE LOST OR STOLEN WE HAVE A SERIOUS PROBLEM. 
3050 PRINT'THIS PROGRAM DOES NOT PREVENT THEIR LOSS BUT CAN HELP VOU 
3060 PRINT'MINIMIZE VOUR LIABILITY BV KNOWING WHICH CARDS WERE LOST 
3070 PR I NT "AND WHOM TO NOTIFY. 

3080 PRINT: PR I NT "CURRENT LAWS LIMIT VOUR LOSSES TO THE FIRbT $50 OF 
3090 PR I NT "UNAUTHORIZED USE. PROMPT NOTIFICATION TO THE CREDIT CARD 
3100 PR I NT "COMPANIES CAN REDUCE THIS AMOUNT AS WELL fib GETTING VOU 
3110 PR I NT "RAP ID REPLACEMENT CARDS. -JUST ONE WORD OF CAUTION:" 
3115 PRINT "DO NOT USE ANV COMMAS OR COLONS WHEN ENTERING DATE. 
3120 PRINT: INPUT "PRESS ENTER TO BEGIN"; Af 
3130 RETURN 



TRS-80 COMPATIBLE PERIPHERALS 

•CENTRONICS 779 LINE PRINTER 

{Same one that Radio Shack use*) 1999 

•779 WITH TRACTOR FEED OPTION (Highly recommended) '.'.'. ',', U 1 7 9 

*PI MICROPRINTER (A low-cost alternative to the Impacts) J399 

Alt the above printers are oippUed with 1 special cable that allows a direct connection to 
the Centronics parallel line printer port on your Expansion Interface Unit. 

The printeri are warranted for 90 days. Call Centronics nationwide field service for repair 
at B00-25S 1S52, They usually respond to a service call within four hours 
•SHUGART SA400 MINIDISKS COMPLETE WfTH POWER SUPPLY AND CASE 
(Aftin the tame one Radio Shack uses). BUY TWO UNITS AND GET CABLE FREE 

■ J3 99 

•16 K RAM EXPANSION KITS (8 CHIPS) 
Up-grade your 4 K's or add to your Expansion Interface Unit 19 9 

TRS-80 SOFTWARE ON COMPATIBLE 
CASSETTES OR DISKETTES 

OATAS6T CONTROL P ACKAGE BY JOHN DaMiTA 4IC £a 

ThU *ubrouttnt prwk*. TRS^O Lml t BASIC wtth F,l, OPEN, READ WRITE «nd CLOSE FuncT.or* Alto m. 
eluded art two utility projorm and full documentation 

INVENTORY CONTROL PROGRAM BY JERRY HICKS *K S35 

Allow* t*« *mati bvun«a to upgrad* in pra*a«i iftytntory tyitarn tnti pnjvicfc t>m.»)y ntoorn 10 ih» trttn*a>efi*n% 6 
proar*** wrtth doewmtnuiion MKI 

HOROSCOPE CASTING 8Y COMPUTER ■ BY D L PITMAN . . StO 

A fan tans program wttn srapMct Aha ***!•&*« tor Lavt! M win eui^ut fOrmtriKJ lot penwr 

PERSONAL FINANCE PACKAGE BY JOHN 0*MITA (3 trotrtntl St S 

MORTGAGE CALCULATIONS ANO MATH TEST BY JOHN DtMlTA SS tsc* 

, LEVEL I RELOCATED IN LEVEL II RAM M6K REQUIRED) . . . SIS 
Run you* nontoimtftlmt UwH I program* or m«kt Lr*tt I comp*i,t*» non >n tOu' L II m*e:*in* 

'DISASSEMBLED LEVEL It LISTING WITH COMMENTS S3D 

OUBIC • BY ALVIN FILES (3-D T«-T#eTot w.r* jr.prv.ci Uv*.l II ontyt SS 

CHECK RECONCILIATION PROGRAM BY CLARENCE STINSON SS 

APARTMENT ANALYSIS BY OICK MICH ELS $4 
Sand lor 1m catalog tor compltt* program Irtting A l*n wrnpl* gtmn lotion 

STAR TREK IBKJ, FLIGHT SIMULATOR I4KI FOOTBALL «KI SS tech 

ADD $2 FOB PROGRAMS ON CASSETTE, SS FOR DISKETTE 
(Includes Shipping and Handling) 

Colorado residents add 6% sales tax, S0 FTWARE ROYALTY PLANS 

/7\ & PET PROGRAMS ALSO AVAILABLE 

cWWarat, incorporated iX^&P* 1 ™ 

6000 E. Evans Av f Bldg 2 ^^^rra^^GY 

Denver, CO 80222 affilia te 

303/ 758-7275 




Benefit from the ever 
growing body of system particular 

information contained in each issue of 
SoftSide 1 - M the first magazine written for the 
TRS-80 microcomputer. 

• TRS-80 Hotline ^Software 

• BASIC Tutorials Games 

° Software Exchange Education 



• New Products 

• Business Ventures 

• Gossip 



Business 
Household Appli- 
cations 



And Much More 

PREPUBLICATION OFFER 

Order now and receive the first 1 2 months 

of SoftSide™ for $10,00 (re. subscription 

price, $15.00). To order, write: 

SoftSide™ 

POBox68 Milford, NH 03055 
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BAR GRAPH PROGRAM 

BV 
R I CHARD CL I NTON < #4273 > 



2© 
38 
5@ 
60 
76 
75 
88 
90 
95 

108 
110 

128 
13:0 
140 
145 
150 
168 
170 
180 
190 
208 
210 
220 
23:0 
240 
258 
260 
270 
275 

2 8 

3 08 
1888 
1818 
1815 
1828 
1188 
1118 
1128 
113:8 
1148 
1158 
1168 
1178 
1188 



BAR GRAPH PROGRAM - AT MOST 
FOLLOW DIRECTIONS AND ENTER 



5 CLS 
18 PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
K=NI 

IF NI=INT<NI> AND NIO 18 GOTO 
PRINT "INPUT ERROR, TRV AGAIN. " 
FOR I =1 TO 288 : NEXT 

CLS:PRINT"ENTER NO. 

PRINT i PRINT "CLASS 

FOR 1=1 TO NI 



" PRESb ENTER WHEN READV TO BEGIN. 
" I NPUT DES I RED HEAD I NG. NO COMMAS 
INPUT "HEADING".; H* 
"INPUT NUMBER OF DATA CLASSES 



18 CLASSES ALLOWED' 
DATA AS ASKED. " 



"; Z9 

PERMITTED.. PLEASE" 



NI 



188 



I :CLS: GOTO 78 
OF OBSERVATIONS 
OBSERVATIONS" 



IN EACH DATA CLASS" 



PRINT I; " 

NEXT I 

CLS 

GOSUB 1188 

GOSUB 1888 

C2=CM/58 

FOR 1=1 TO NI 

D< I >=C< I >/CM* 

NEXT I 

FOR 1=1 

PRINT © 

FOR J = 

NEXT I 

PRINT e 



INPUT C<I> 



58 



TO NI 
832-64*1.. 
1 TO D-::i> 



I .; TAB < 5 >C < I > s TAB < 12 > s 
: PR I NT CHR* < 143 > ; : NEXT 



16, H* 



"OBSERVATION 1 
VALUE" 
18888 



BOUNDARY SUBROUT I NE 
fO 127 : SET >'X, 41 > 



PRINT 
PRINT " # 
FOR 1=1 TO 
NEXT I 
END 

REM GRAPH 

FOR X=24 " 

NEXT X 

RETURN 

REM HORIZONTAL SCALING SUBROUTINE 

CM=8 

FOR 1= 1 TO K 

I F C < I > >CM THEN CM=C < I ':• 

NEXT I 

PRINT ® 

PRINT @ 

PRINT e 

RETURN 



1817, CM.; 
378, 8 
8. 
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BITS AND PIECES 

by 
HOWARD .Y. GOSMAN 

OUR NEW SOFTWARE POLICY 

COMPUTRONICS is now selling high quality software. We have obtained the non-exclusive rights to sell 
software from various software companies OBVIOUSLY, COMPUTRONICS CAN NOT PRINT SOFT- 
WARE SOLD BY OTHER COMPANIES IN THE TRS-80 MONTHLY NEWSLETTER, 

Our new software policy will not affect the quality of the programs published in the Newsletter. We will 
continue to publish major programs written by our staff and contributed by subscribers. 

In order to insure the quality of the software we are selling, we will include a short evaluation form with 
each order. Subscribers are encouraged to submit more detailed evaluations for publication in future 
Newsletter issues. 

OUR FUZZY CRYSTAL BALL 

RADIO SHACK has taken the time and trouble to refute some of our information concerning new 
products soon to be sold by RADIO SHACK,. As a matter of fact, a recent RADIO SHACK TRS-80 
UPDATE (distributed to RADIO SHACK store managers and staff) suggested that perhaps our 
Newsletter uses a fuzzy "crystal ball," 

A recent RADIO SHACK release (November 1, 1978) is entitled "Rumors-Bad Information," It states, 
"There have been a number of questions raised and rumors started by various TRS-80 User's Group 
newsletters and other publications which might end up as questions in your store." 

All of our published information related to new products (and future products) sold by RADIO SHACK 
(and other companies) comes from reliable sources. Our intentions are to publish accurate information. 
The accuracy of our information is only as good as the accuracy of our sources, Hopefully, the majority 
of our "CRYSTAL BALL" information will prove to be accurate. 

NO S-100 BUS FROM RADIO SHACK 

An S-100 BUS addition to the RADIO SHACK TRS-80 would allow users to have a greater choice of 
equipment to be used in future system expansion. We stated that RADIO SHACK would be releasing an 
S-100 BUS within the next 90~days (see page 72), 

According to the November 1, 1978 RADIO SHACK TRS-80 UPDATE (for store managers and staff), 
"Contrary to some continuing rumors and very recent magazine information, RADIO SHACK will not 
produce a device which adapts the TRS-80 to accept S-100 plug-in boards, At one time, Tandy 
Computers was developing such an adaptor, but of course they are no longer in existence," 
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Our misinformation related to the S-100 Bus comes from a phone call to TANDY COMPUTERS (see 
Page 19). Upon hearing a rumor about the pending release of the S-100 Bus, we called TANDY 
COMPUTERS 800 telephone number to ask about the availability of the S-100 Bus. We were told that it 
would be released within the next 90 days. This information was confirmed by the store manager. 
TANDY COMPUTERS (formerly a division of TANDY CORPORATION) no longer exists. We incorrectly 
assumed that RADIO SHACK (also a division of TANDY CORPORATION) would soon be sellinq the 
S-100 Bus. 

BUT ... AN S-100 BUS IS COMING 

MICRO COMPUTER DEVICES INC., producer of the SELECTRA-TERM (see ad in this issue) will be 
producing and selling an S-100. Their S-100 Bus should be ready within the next 90-days. Complete 
details related to the new S-100 will be published as soon as it is available. 

REAL-TIME CLOCK 

RADIO SHACK has announced a new program that allows Level ll/Expansion Interface owners to use 
the Interface's Real-Time Clock without having to purchase the Mini-Disk system (see page 23). The tape 
will be shipped with all new Level II computers and will be available to present owners at no charge 
(according to an October 23, 1978 RADIO SHACK TRS-80 UPDATE). 

A KEYBOARD DEBOUNCE PROGRAM 

RADIO SHACK has a new program that extends the keyboard "debounce" time to eliminate multiple 
characters on one key depression. The problem occurs on Level II computers, due to keyboard contacts 
becoming contaminated with dust, dirt, cigarette smoke particles and other foreign substances. 

THE NEW RADIO SHACK MICROCOMPUTER NEWSLETTER 

RADIO SHACK will be sending out another issue of their MICROCOMPUTER NEWSLETTER. You 
probably received their previous issue several months ago. It will contain information on the following- 
(1) The KEYBOARD DEBOUNCE and CLOCK programs, (2) MICROCHESS and GAMES PAC I 
(3) RS-232C and TELEPHONE INTERFACE. (4) GENERAL LEDGER I Disk program, (5) MAILING LIST 
SYSTEM for disk and tape programs, and (6) assorted information and program tips. 

THE NEW RADIO SHACK MAILING LIST SYSTEMS 

According to RADIO SHACK'S October 23, 1978 TRS-80 UPDATE, two new mailing list programs are 
now available (or will be available very shortly). The two mailing list programs, one on disk and one on 
tape, allow the user to manage a mailing list. He can create the list, add to it, change information, sort it, 
and print mailing labels-either of the entire list or a selected portion of it. Selected lists may be printed by 
specified names, cities, zip code area, state, or even a special "select code". The tape version will sell for 
$19.50 . . .the Disk version will sell for $39.95. 

RADIO SHACK DELIVERY SCHEDULES 

As of October 1 9, 1 978, there was about an 1 2 week wait for delivery on the LEVEL 1 1 BASI C K IT (to add to 
a LEVEL I computer). There is about a 14 week watt for disk delivery (which may be shorter now). It is still 
possible to obtain immediate delivery on disks and LEVEL II from some RADIO SHACK stores. 
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FROM OUR CRYSTAL BALL DEPARTMEfMT-ON DISKS 

On page 69, we reported that RADIO SHACK will soon be selling a full size disk drive with 250K capacity, 
RADIO SHACK (in a recent release) stated that they do not have any plans for releasing a full size disk 
drive in the near future. Despite RADIO SHACK'S official denial, I am sure (based on rumor, my crystal 
bail and knowledgeable sources) that RADIO SHACK will be selling a 250K capacity disk drive (with up 
1K system capacity) before June. 

MICROTRONIX (see ad this issue) is selling the MICROPOLIS METAFLOPPY disk for under $500. The 
MICROPOLIS has the capacity of storing 315K on one disk drive (or over 1000K on four disk drives),. It 
should be noted that at the present time, the MICROPOLIS will only store 85K (when used with the 
TRS-80 and 2.1 D.O.S.). MICROTRONIX (and at least three other companies) claim that they will soon 
have larger storage capacity on the MICROPOLIS METAFLOPPY (with a controller card modification), 

SHUGART (the manufacturer of the RADIO SHACK mini disk) already has a dual density (double 
capacity) disk drive for sale. I am sure that RADIO SHACK must be looking into this possibility. 

TEXAS INSTRUMENTS isabouttostrike.1979wili probably betheyearthatTEXASINSTRUMENTSwili 
introduce personal and small business computers. Based on their past track record, Tl will probably 
introduce a blockbuster. I do believe that Tl will introduce a small inexpensive business computer with 
huge storage capacity. I'm also sure that RADIO SHACK is feverishly working on counter moves to 
insure their dominance of the personal and small business computer market. LOOK FOR A SURPRISE 
FROM RADIO SHACK WITHIN THE NEXT 100 DAYS. 

What else? Look for a 70K disk drive for $1 25. It should be hitting the market around June. I'm sure that 
RADIO SHACK will take notice and look into the posibilities. (Information obtained from the 
November, 1978 Computer Retailing) 

RADIO SHACK IS DOWN ON THOSE 16K RAM KITS 

There is more and more interest about the 16K's that are being advertised for $79-$149 (compared-to 
RS's almost $300). Here's RS's advice (from an RS release). "Yes, lots of folks are advertising 16K RAM 
kits for much less money than ours. There are outstanding reasons why your customer should still buy 
ours (RADIO SHACKS). We buy our RAM chips from only two prime vendors- We buy only top-grade 
chips. Even with this approach, in final testing, only 40% of the chips we receive will work reliably! There 
are some top name manufacturers whose chips just won't work. The chips can appear to work, but 
funny non-repeatable things happen whenever the computer gets into the memory area which uses 
those chips. Basically, very tight quality control .on memory chips has not yet been achieved. The amount 
of power required to refresh those chips is critical. If the chips are not tested quite thoroughly, it is 
common to find that the particular chips used may require more power to refresh than the specifications 
call for, and more power than the Z-80 microprocessor can furnish. When this is the case, very strange 
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things will happen." If you're unit is not working, RS repair centers will not replace bad "foreign" chips, 
they will check your unit and repair any other faults. If you have used chips from other companies, RS will 
return the unit to you with a note that it contains bad RAM chips. It will be up to the customer to effect his 
own repairs or replacements for chips purchased elsewhere. NOTE-ALL RADIO SHACK OWNERS 
SHOULD KEEP THEIR PROOF OF PURCHASE. UNLESS THIS PROOF OF PURCHASE IS INCLUDED, 
IT WILL BE ASSUMED THAT YOU DO HAVE RADIO SHACK RAMS. 

Our position related to RAMS was previously stated (see page 23). 

TELEPHONE INTERFACE I 

(According to an RS release) - 'This new TRS-80 peripheral extends the capabilities of the RS-232C 
system to allow communication to be conducted over telephone lines. There is one significant 
limitation you should know about: The Telephone Interface I is an "originate only" interface. It does not 
allow communication between two TRS-80's. In a telephone link using this type of interface, one of the 
two computers which the TRS-80 might tie into as a terminal are so equipped. 

An "originate/answer" interface will be available in the not-too-distant future, so be patient," 

RADIO SHACK DISKETTES 

1. A 2.2 DOS DISKETTE should be available in stores at this time. 

2. A 3.0 DOS DISKETTE is coming. 

3. (According to an RS release). . . "We discovered that a few DOS system disks somehow got out with 
two extra files on them. . .Names/CMD and PGM/CIM. These are files which are used in quality 
testing and are supposed to be "killed" before the disks are shipped. They are blank files and contain 
no data or programs. If your customer should get one and ask you, tell him to simply kill both of 
them." 

FORTRAN-80 

MICROSOFT (who developed the RS version of BASIC) has just announced their new TRS-80 
FORTRAN The TRS-80 FORTRAN will be supplied on two minidiskettes and requires a 32K system with 
one disk drive/The FORTRAN-80 by MICROSOFT is comparable to FORTRAN compilers on large 
mainframe and minicomputers. All of ANSI Standard FORTRAN X3.9-1966 is included except the 
COMPLEX data type. An assembler, editor and loader are also included. The TRS-80 FORTRAN will be 
available \n January, 1979 for $350. More details next month. ' 

What is FORTRAN? In short, FORTRAN is a high level computer language (BASIC is the computer 
language now used by your TRS-80) that removes the drudgery of standard operations and permits the 
user to instruct the computer in simpler terms. FORTRAN simulates with the computer the methods 
people use to solve problems in mathematics, business, and science. 
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THE ELECTRIC PENCIL 

The ELECTRIC PENCIL is a word processing system (not an electrical device for writing on your video 
screen). The ELECTRIC PENCIL is the most powerful word processing system available for under $1000 
(it sells for $99.95). 

'The Electric Pencil is a Character Oriented Word Processing System. This means that text is entered as 
a continuous string of characters and is manipulated as such. This allows the user enormous freedom 
and ease in the movement and handling of text. Since lines are not delineated, any number of characters, 
words, lines or paragraphs may be inserted or deleted anywhere in the text The entirety of the text shifts 
and opens up or closes as needed in full view of the user. The typing of carriage returns as well as word 
hyphenation is not required since each line of text is formatted automatically, As text is typed in and the 
end of a screen line is reached, a partially completed word is shifted to the beginning of the following line. 
Whenever text is inserted or deleted, existing text is pushed down or pulled up in a wrap around fashion,. 
Everything appears on the video display screen as it occurs thereby eliminating any guesswork. Text 
may be reviewed at will by variable speed scrolling both in the forward and reverse directions. 

By using the search or the search and replace function, any string of characters may be located and/or 
replaced with any other string of characters as desired. Specific sets of characters within encoded 
strings may also be located and used in creating selective mailing lists. 

When text is printed, the ELECTRIC PENCIL automatically inserts carriage returns where they are 
needed. Numerous combinations of Line Length, Page Length, Character Spacing, Line Spacing and 
Page Spacing allow for any form to be handled. Right Justification gives right-hand margins that are 
even,. Pages may be numbered as well as titled." (Quoted with permission from the ELECTRIC PENCIL 
MANUAL) 

In short, here's how the ELECTRIC PENCIL works. Turn on your computer Load the ELECTRIC 
PENCIL SYSTEM (a cassette tape). You are now ready to type any page of text (a letter, a book, an 
article, a mailing list, a form, etc.). The ELECTRIC PENCIL will let you correct mistakes anywhere in 
your text, store the complete text on cassette and/or print it out on your LINE PRINTER or any other 
typing device hooked up to your TRS-80. With a lower case modification, you can type both upper and 
lower case letters. 

The ELECTRIC PENCIL WORKS ON BOTH LEVEL I and LEVEL II. It does require 16K. 
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Now for some more ELECTRIC PENCIL details. 

The ELECTRIC PENCIL is a machine language tape (not written in basic). The ELECTRIC PENCIL 
MANUAL is superb so you will not have any trouble understanding how to use it. Turn on your computer. 
When your computer is ready type SYSTEM (this will allow your computer to accept machine language 
tapes, A star and question mark will appear (*?). Prepare your tape and recorder. Type in PENCIL, press 
PLAY on your recorder and ENTER on your computer. Your computer is now ready to use this advanced 
word processing system. 

Before beginning, the ELECTRIC PENCIL program will ask you if you have a lower case modification on 
your computer, You answer yes or no (lower case to be discussed later). 

A blinking white cursor will appear in the upper left-hand corner of your screen. You can now start 
typing. You never have to press the ENTER key because the ELECTRIC PENCIL allows you just to type 
your text. It automatically will set up your text. It will never chop off a word at the end of a line. It auto- 
matically will start a new line (if a word is too long to fit on a previous line). 

Using the SHIFT KEY (or SHIFT-BREAK with the lower case modification), your ELECTRIC PENCIL 
system can follow a whole bunch of commands (in addition to writing your text). 

1. DELETE CHARACTER - deletes one or more characters from your text and automatically 
repositions all words and lines. 

2. INSERT CHARACTER - inserts one or more characters into your text and automatically re- 
positions all words and lines. 

3. DELETE LINE - deletes an entire line and repositions all other lines. 

4. INSERT LINE - adds another line of text and will move down all other lines to make room for your 
new line (and will reposition all words if necessary), 

5. STRING SEARCH - a function that is used to locate any string of characters that may exist in 
the file. 

6. TAPE READER - enters a file (text) onto your computer from your recorder. 

7. TAPE WRITER - stores text from computer onto cassette tape. 

8. WORD NUMBER - tells you how many words have been written. 

9. LEFT MARGIN - will set up the size of your line (for example, 30 characters per line 40 characters 
per line, etc.). 

10. LEFT MARGIN - will set up the position of a left margin (if you don't want to type starting at the 
left margin displayed on your computer). 

11. PAGE SPACING - sets the number of spaces (empty lines) between pages during printing. 

12. PRINTING - actually prints your text on typewriter or LINE PRINTER. 

13. UNDERLINING - allows for word underlining. 

14. LINE LENGTH - sets the number of characters per line that will be printed. 

The above is only a partial list of ELECTRIC PENCIL commands. The ELECTRIC PENCIL is FAST and 
COMPLETE. It has all commands used on $5000 word processing systems. THE ELECTRIC PENCIL IS 
NOT AVAILABLE ON DISK (FOR THE TRS-80). THE ELECTRIC PENCIL WAS WRITTEN BY MICHAEL 
SHRAYER-COPYRIGHT 1978. 
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BUYING A PRINTER 



There are hundreds of printers available that can be used with your TRS-80 COMPUTER SYSTEM. We 
will examine some of the most popular alternatives below. 



1. 



The TRS-80 LINE PRINTER is a dot-matrix printer (as opposed to a solid character printer. It will 
print upper case letters only. Quality of print is the same as the quality of our program printouts. If 
you examine our program printouts closely, you can see the little dots used to print each 
character. The advantage of the TRS-80 LINE PRINTER and other dot-matrix printers is speed. 
The LINE PRINTER will print 60-1 00 characters per second (depending on the size 6f the print) 
or 21 lines per minute. You can plug in the LINE PRINTER directly to your TRS-80 interface. It is 
reliable and virtually indestructible, it's great for printing out mailing lists and forms (in quantity). 
The LINE PRINTER will not give business letter quality (or lower case letters). The cost of the 
LINE PRINTER is $1299. The optional tractor feed is a necessity (adding $300 to the cost). You 

can have the line printed repaired by RADIO SHACKorCENTRONICS will come to your homeor 
office to repair it. 

2. CENTRONICS 779 is equal in every way to the TRS-80 LINE PRINTER. You can purchase the 
CENTRONICS 779 at local computer stores and save yourself $200-$400. Make sure that you 
have the correct printer connection cable (or buy one from RS for $39). If you do purchase your 
printer from a non-RADIO SHACK store, make sure that you will get the same service and make 
sure that it can be plugged directly into your interface. 

3. OTHER CENTRONICS PRINTERS do almost anything. More expensive CENTRONICS 
PRINTERS work faster, have attachments for special forms, have lower-case letters, have better 
print... You can find out more about CENTRONICS PRINTERS by calling their toll-free 
telephone number (available from toll-free information). 

4. The TRS-80 QUICK PRINTER delivers about 150 lines per minute. The QUICK PRINTER has the 
advantage of being inexpensive ($499) . It does require the expansion interface. It works just like 
the TRS-80 LINE PRINTER. It also has lower case letter. Its main disadvantage in the use of the 
special aluminum-finish paper. You can use office copiers to make copies of its printouts. The 
QUICK PRINTER is a low cost method of getting hard copy. It will not printout mailing lists on 
labels. 

5. The SELECTRA-TERM (soon to be called SELECTRA-PRINT) is an IBM SELECTRIC II with the 
necessary conversions to make it compatible with the TRS-80. MICRO COMPUTER DEVICES 
converts a factory new IBM SELECTRIC II to a computer output terminal. The SELECTRATERM 
offers excellent business quality print (both upper and lower case). Its main disadvantage is its 
slow speed (15 characters per second-certainly faster than anyone can type). It is an excellent 
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choice for use with the ELECTRIC PENCIL as a word processing printer. Because of its slow 
speed, it would not be a good choice for use with a large quanty of printing (mailing lists on 
labels, invoices, etc.). The SELECTRA-TERM sells for about $2,000. BE CAREFUL THERE IS A 
SPECIAL SELECTRA-TERM FOR USE WITH YOUR TRS-80. The TRS-80 will normally print 
upper case letters when the shift-key is used (although the video screen will slways display upper 
case letters-unless modified). The SELECTRA-TERM for the TRS-80 has a special switch that 
reverses this process to allow TRS-80 computer owners to use their computer as a standard 
typewriter. 

The ANDERSON JACOBSON AJ841 (sold by MICROTRONIX) is a completely refurbished 
SELECTRIC (similar to 5, above). The advantage is its price (about $1000.) 

THE SPINTERM is the best of all possible combinations (at lease for the price of $3000 or so). 
The SPINTERM gives high quality solid character print. It is much faster than the SELECTRA- 
TERM (about 55 characters per second). The SPINTERM uses interchangeable print thimbles 
(similar to the "balls" used on the I.B.M.). Special thimbles with foreign characters, math and 
scientific characters, and different sized print are available, the SPINTERM must be connected to 
a TRS-80 with an RS-232 interface. 



8. EXPANDOR'S MODEL 123P 
BLACK BOX PRINTER ($449) is a low 
cost printer that used standard con- 
tinuous pin feed paper (for normal 
hard copy or mailing labels). The 
BLACK BOX PRINTER is a small, 
lightweight, portable, quiet, im- 
pact printer that prints 80 columns 
wide, at 10 characters per second, on 
8Vfe inch wide pressure fed or sprocket 
fed paper. Up to five copies may be 
printed at one time (with carbons). 
This low cost printer is a low cost 
printer that gives good copy (upper 
case only) on standard white paper. 
More details available from 
MICROTRONIX (ad this issue). 



SURPLUS PRINTER FOR TRSSO* 

0KIDATACP110 

LINE PRINTER 

WITH INTERFACE 

BOARD. 



T.M. RADIO SHACK 




NO SOFTWARE OR HARDWARE CHANGES. 
REQUIRED. JUST PLUS IN AND RUN! 



• 5x7 Impact Dot Matrix 
•80 Char/Line 

• 64 Char ASCI I (Upper Case) 

• 110 Char/Sec. 
•66Ltnes/Min. 
•Accepts 8-1/2" TTY 

Roll paper 

PRINTER $650.00 

INTERFACE: BUILT $100.00 

KIT $ 60.00 

INF0R & SCHEMATIC $ 5.00 

Shipped Freight collect ;Send check, 
MO; 



INCLUDES - Power Supply, Buiit in 
Selftest, Parallel Interface, Line Buf- 
fer and Cables, Housed in a three 
piece plastic cabinet with all control 
electronics. Retail for over $1 ,1 00. 
PRINTER BRAND NEW NEVER USED 
IN FACTORY SEALED CARTON, 
Operating Manual Included. Supplies 
Service Manual $20. Limited 

Guaranteed to be in good working 
order at time of delivery. 
Write for Interface Info on Heath, 
Apple, Imsai, Sol, Northstar 

INTERNATIONAL ELECTRONICS 
EQUIPMENT CORP. 

P,0. Box 522542, Miami, Florida 331 52 
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TRS232 PRINTER INTERFACE 

Small System Hardware is offering a low-cost printer interface as an alternative to the Radio Shack 
interface box. The printer package in the Electric Pencil has been specially configured to support either 
the Radio Shack interface or the TRS 232 printer interface. The TRS 232 interface allows you the 
versatility of using any of a large number of computer terminals or printers with your TRS-80 and the 
Electric Pencil. !n addition, each TRS 232 is delivered with cassette software for driving the printer from 
LEVEL-II Basic, thus this one interface will support both word processing and normal program listing 
and documentation. The TRS232 comes completely assembled and tested with documentation and 
software for $39.95. 

The TRS232 printer interface is a low-cost software-driven output port. The interface is totally self- 
contained, and includes all the electronics necessary for converting the tape recorder output level to RS- 
232 compatible voltage levels. Normal operation of the cassette recorder is maintained. 

Any RS-232 compatible printer may be used with TRS232. This includes most standard computer 
terminals, Diablo printers, the new Teletype model 43terminal, Tl Silent, etc. In addition, provisions have 
been included for driving a 20-mil current loop so that commonly available teletypes may also be used if 
desired. 

The TRS232 is small (about 1 " x 2" x 3") and installs in series with the power and cassette cables on your' 
TRS-80 computer. The cassette output cable from the computer plugs into the TRS232. A second 
cassette cable (furnished) connects the TRS232 to the recorder so that standard recorder functions are 
maintained. Two short cables are attached to the TRS232; one plugs into the power input jack on the 
TRS-80 and the second mates with the plug from the TRS-80 power supply, Finally, there is a standard 
DB-25 connector on the TRS232 which mates with the printer cable. The TRS232 may be left in place at 
ail times, since it does not interfere with cassette operation and power requirements are negligible. 

The TRS232 is shipped fully assembled and tested, and includes documentation, cassette software and 
source listings for driving printers from LEVEL-II Basicorfrom yourown machine language programs. It 
may be ordered for $39.95 plus $2.00 for handling and postage (Calif, residents add 6% tax) from: 

SMALL SYSTEM HARDWARE 

Post Office Box 366 

Newbury Park, CA 91320 
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LOWER CASE MODIFICATION* 

LOWER CASE MODIFICATION INSTRUCTIONS 

To modify the TRS-80 for lower-case operation with the electric pencil, changes must be made to the 
screen display memory and to the keyboard. There are many ways to accomplish this modification and it 
is up to the user to determine the most satisfactory approach. The modification requires changes to the 
circuit boards within the keyboard enclosure of your TRS-80, thus your warranty will be voided by this 
modification. We have modified several computers ourselves and have had no difficulty with the TRS-80 
after making the changes, however, WE CANNOT ACCEPT RESPONSIBILITY FOR DAMAGE TO 
YOUR COMPUTER CAUSED BY INSTALLATION OF THIS MODIFICATION! 

SCREEN MEMORY MODIFICATION 

The TRS-80 video display uses a dedicated block of 1024 bytes of memory located in memory space at 
3C00 Hex. When received from the factory, there are only 7 memory chips installed in this block of 
memory, providing 128 possible characters for screen display. The stock TRS-80 uses 64 of these 

combinations for graphics and a second 64 for the upper-casesubset of the ASCII character set. Bits 0-5 
control the character selection, and the highest bit (bit 7) is used to determine if the character is alpha- 
numeric or graphic. Bit 6 is missing! 

To add lower-case display, bit 6 must be implemented. This may be accomplished by switching the 
memory chip for bit 7 to bit 6 t thereby enabling lower-case letters and eliminating graphics, or by 
addition of an 8th memory chip. We prefer adding the extra chip. In either case, if you plan to use Level II 
Basic, you must include a switch to disable bit 6, or Basic will place a lot of funny characters on the 
screen! 

Refer to the top portion of the figure on page 23. A low-power 2102A memory chip (available at most 
electronic stores) is piggy-backed onto an existing 2102A, and appropriate connections are made. Take 
the new 21 02A, carefully bend pins 1 1 and 1 2 up from their normal position, then slide the chip down over 
the 21 02 located at position Z45 on the larger of the two TRS-80 circuit boards (the Z-number is printed 
on the circuit board next to each chip). Be sure that the chip is oriented to place pin 1 on top of pin 1! 
When all pins are aligned and contacting (except 11 and 12, of course), carefully solder each of the 14 
pins from the added chip to the chip on the circuit board. Work quickly but be sure you get a good solder 
joint! Now, connect a small piece of insulated wire (wire-wrap wire is ideal) to pin 11 Locate pin 13 on 
chip Z44, and attach the other end of the wire to the pad which is connected to this pin. 

Between chips Z29 and Z30 there are three traces, two wide and one narrow. Cut the narrow trace with a 
sharp knife. Attach two pieces of insulated wire to each of the cut ends of this trace, and a third piece to 
pin 1 2 of the added memory chip. Run these three wires to a single-pole double-throw switch as shown in 
the diagram. This switch changes the screen memory from the original 7-bit configuration to the new 8 
bit configuration, thus allowing you to switch back and forth between Basic and The Electric Pencil. 
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KEYBOARD MODIFICATION 

One change must be made to the keyboard; a CONTROL key must be added. It is possible to isolate and 
a7din«^^ 

Install your new control key, or isolate one of the existing keys by cutting the traces on thP k^n.m 

TzJT* LOCateZ2 h andZ40nthel ° Wer - ,eftOftheCi - itb ^ aJ^4,22S 
ends nf th "'"* TT """** * ** toP ° r b ° tt0m of the --uit board, as desired). Attach the other 
ends of these w.res to the control key Be sure you leave enough slack in the wires to allow re-assembly o 
of your computer. This completes instal.ation of the lower-case modification. a **™b,yof 

This modification will work only with The E.ectric Pencil! To enable lower-case entry type SH.FT- 
ths ,h H T k hek T° ard Wi " "^ ° P6rate 3S 3 n ° rmal typeWriter ' enteri "9 lower-case characters un els 
o^y ^opeSon PreSSSd - " V0U ^^ 3 S6COnd SH,FT - BREA ^ »• keyboard wil, return to upp^ 

The lower-case character set for some TRS-80's will appear strange. In some cases, the small 'a' is raised 
above the me. A.I of the characters which normally extend below the line (g,j,p. q ,y w^aTo be een in 1 

P*n^^^ 

wish °^t m t i^ m0 t di,iC M ti °H " aVailab,e • and VOU ^ ^^ thS klt P-^ssiona,.y installed if you 
w.sh. Contact Small System Hardware (see page 24) for further information. 

•Reprinted with permission from The Electric Pencil Operator's Manual. 

PLEASE NOTE 

On page 70 we stated' that several readers have reported that the LOWER CASE MODIFICATION 

doesn't woriUF YOU FOLLOWTHE INSTRUCTIONS IN THE ELECTRIC PENCIL MANUAL L d use^he 

k,t su PP ,,ed by MICROTRON.X (and other companies) ... THE MODIFICATION DOES WORK Ou! 

machme was mod.f.ed without any problems (and in only a couple of minutes) Your local compute 

stme ZnZ " T* ^ TRS " 8 ° " ^ **» "** "" m0dmcrtten ^ ^5 
some money!). . . or ,f you are so inclined, you can easily do the modification yourself. 

oi M D ^Jo RON,CS ' MICHAEL SHRAYER SOFTWA ^. INC. (and everyone else!) CANNOT ACCEPT 

mSS^oIT F ° R DAMAGE T ° Y ° UR COMPUTER CAUSED BY 'nstallat^n OF THIS 
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DIAGRAM OF TRS-80 LOWER-CASE MODIFICATION 
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ADDITIONAL TRS-80 LINE PRINTER INSTRUCTIONS 

As noted by several subscribers, information is scarce concerning instructions for using the TRS-80 
LINE PRINTER. Subscribers are encouraged to add to the following list of "additional instructions" 
to help LINE PRINTER owners. 



1. 
3. 



■5. 



6. 



LPRINT " " can be used to print a blank line. 

LPRINT CHR$ (32) can also be used to print a blank line. 

Apparantly, LPRINT CHR$ (10) and LPRINT CHR$ (13) have no visible affect on the LINE 

PRINTER (as stated on page 10/3 of LEVEL II manual 

You cannot print a character on the LINE PRINTER without getting an automatic line feed. It may 

be possible to modify the LINE PRINTER to print characters without line feed, but that would 

probably make it necessary to add statements to each program line to give you a line feed. 

CHR$ (1 1) or CHR$ (12) can be used with LPRINT to move paper to the tppof a form. Here's how 
it works. When you turn on your computer, your line printer will print 66 lines per page. Verify this 
by typing in PRINT PEEK (16424) followed by ENTER. 67 is displayed (67-1 or 66 isthe number of 
lines per page). If you type LPRINT CHR$. (11) or LPRINT CHR$ (12), the LINE PRINTER will 
print 66 blank lines. Now let's say you printed a mailing list or letter that used up 40 lines on the 
LINE PRINTER. Now typing LPRINT CHR$ (1 1) will move the LINE PRINTER 26 spaces (66-40). 
If you are using 6 line mailing labies you may want to change the size of the lines per page used 
on the LINE PRINTER from 66 to 6. Just type in POKE 16424,7 (always add 1 toyourdesired page 
or form size). Now if you used 4 lines of your 6 line label to print an address, type in LPRINT 
CHR$ (11) to reach the top of the next label (NOTE-you may have to add an extra couple of 
spaces to account for the space between labels). 
PRINT PEEK (16425) will tell you how many lines of your form have been used. 



OUR NEXT TWO ISSUES 

Our next two issues will contain a FEDERAL INCQME TAX PROGRAM (both long and short forms), 
a WORD PROCESSING SYSTEM (for cassette or disk) and an introduction to machine language and 
assembly language. 

TWO NEW BOOKS FOR THE TRS-80 

INTRODUCTION TO TRS-80 GRAPHICS by Don Inman is due to be released this month ($8.95-175 
pages). The book begins with the most basic concepts of line drawing and leads the reader on to 
geometric shapes, moving figure animation, and other more advanced topics. 

REAL TIME BASIC FOR THE TRS-80 by Bob Albrecht and Don Inman is due to be released April, 1979 
($6.95-150 pages). This book will teach you how to read and understand programs in BASIC. 

Both of the above books will be available from COMPUTRONICS. You will receive an ad from us when 
they are in stock. 
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16-DIGIT ACCURACY FOR SQUARE ROOTS 

The following program will give 16-digit accuracy to square root calculations. The TRS-80 LEVEL II 
BASIC presently gives 6-digit accuracy, 

5 REM-ROUTINE TO FIND SQUARE ROOT OF A NUMBER 

6 REM-WITH AT LEAST 16-DIGIT ACCURACY 

7 REM- BY 

8 REM- HOWARD Y. GOSMAN 
10 CLS: INPUT "ENTER NUMBER"; X# 

20 Y#=SQR (X#) 

30 PRINT Y# 

40 Y#-(X#/Y#)/2 

50 PRINT Y# 

60 IF Y#=A#GOTO 100 

70 A#=Y# :go to 40 

80 PRINT:PRINT:PRINT "THE SQUARE ROOT OF"; X#; "IS"; Y#; PRINT 

90 INPUT " TO FIND THE SQUARE ROOT OF ANOTHER NUMBER PRESS ENTER"; X 

100 GOTO 10 

WORD PROCESSING PROGRAM 

The following short program will simulate a word processing program. The program was not designed to 
be any kind of complete word processor or complete program. It will only simulate some of the functions 
of a word processor. COMPUTRONiCS has expanded this program into a full WORD PROCESSING 
PROGRAM for cassette or disk. We are still working on getting out some remaining "bugs." Our 
complete word processing program will be published in one of the next two issues (assuming that all 
"bugs" are eliminated). 



/0 CLEAR 1J 

2$ CLS 

30A$=INKEY$ :!FA$=" " GOTO 30 

40 B$=B$+A$ 

50 PRINT @0, B$ 

60 GOTO 30 



TOLL FREE NUMBER FOR DATA PROCESSING 
SUPPLIES 

Data Research Associates can supply all types of 
tractor feed supplies (forms, paper, invoices, mail- 
ing labels, post cards, specialized forms, etc.). They 
also sell diskettes and 60 or 90 minute certified 
cassette tapes. For more information call; 
(800) 431-2302 - (914) 638-1480 - (212) 220-4747 
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EOQ INVENTORY MODEL 

by 
DR. PETER SHENKIN 

If a businessman orders too great a quantity of any particular item he will find himself burdened with 
high inventory costs. For example, a tailor who orders 10000 yards of fabric at one time just to make sure 
he has the fabric will have to pay interest on the money he borrows to buy the fabric and also takes the 
chance that the fabric goes out of style before it is used. An inventory "holding cost" can be attached to 
this. However, if the tailor keeps ordering just a few yards at a time there is also a cost attached There is 
bookkeeping and secretarial cost, shipping cost, etc. These costs tend to be more or less the same no 
matter how large the order, e.g. there may be a minimum shipping charge and for all orders the tailor 
can reasonably be expected to make this is his charge. This fixed charge per order is a reorder cost Now 
if he reorders often, his reorder costs are high but his carrying costs are low. On the other hand if he 
reorders infrequently, but alot each time, then his reordering costs are low but his carrying charges are 
high. The tailor must balance the two costs to get the lowest total cost. 

The following EOQ (Economic Order Quantity) inventory program tells the tailor how to balance the 
two costs for a minimum total. The main assumptions used for this model is that the tailor uses the 
material more or less uniformly throughout the year, that he never can have a stockout and that his 
supplier is very reliable as to delivery time. Suppose that the tailor uses 600 yards of Cloth ZZ peryear at 
a cost of $20 per yard. Also assume that it costs him $4 (20%) a year to hold a yard of cloth in inventory 
and that a reorder costs $12. With these numbers let's run the EOQ program: 

DEMAND? 600 
REORDER COST? 12 
HOLDING COST? 4 

TO MINIMIZE TOTAL COSTS OF INVENTORY : 
REORDER 60 ITEMS AT A TIME 

THIS MEANS ORDER APPROXIMATELY 10 TIMES PER YEAR 
OR ABOUT EVERY 37 DAYS. 

So the tailor's problem is solved. 

In using this model remember the assumptions we made. Mathematicians frequently simplify a 
model by assuming certain things. If these assumptions do not actually hold in practice then the model 
may g.ve erroneous answers. This type of inventory model is frequently used to help the businessman to 
decide whether to take a quantity discount he is offered or not. 
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EOQ INVENTORY MODEL 



5 CLS 

16 PRINT" 

20 PRINT 

36 PRINT" IN INVENTORY THEORY A REORDER COST IS R FIXED COST ASSESSED 

35 PR I NT "EACH TIME AN ORDER FOR AN ITEM IS PLACED, NO MATTER WHAT 

40 PRINT" THE ORDER QUANTITY IS. 

56 PR I NT "A HOLDING COST IS A COST DUE TO HOLDING INVENTORY, E. G. INTEREST 
PRINT" A STOCKOUT COST IS DUE TO RUNNING OUT OF AN ITEM, 
PRINT" IN THIS PROGRAM WE ASSUME THAT THERE WILL BE NO STOCKOUTS, 
PRINT" IN ADDITION THE ITEMS ARE USED UNIFORMLY THROUGHOUT THE YEAR 
PR I NT "WE CAN TAKE DELIVERY OF A REORDER WHENEVER WE WANT, 
PRINT "DEMAND IS IN NUMBER OF ITEMS USED PER YEAR. 
'REORDER COST IS IN DOLLARS PER REORDER, 
'HOLDING COST IS IN DOLLARS 



60 

61 

70 

75 

80 

85 

38 



99 

2O0 

210 

220 

230 

240 

250 

300 

320 
330 
340 
350 
360 



PRINT 
PRINT 
PRINT 
INPUT 
CLS 
INPUT 
INPUT 
INPUT 



PER ITEM PER YEAR. 



'TO BEGIN PRESS ENTER"; Z9 



"DEMAND "} D 

"REORDER COST " ; CR 

"HOLDING COST " = CH 
Q=SQR < 2*CR*D/CH > 
Qi = INKQ+. 5) 
PRINT 

PRINT "TO MINIMIZE TOTAL COSTS OF INVENTORY :" 
PRINT" REORDER ".; Ql; " ITEMS AT A TIME" 
PRINT 

PR I NT "THIS MEANS ORDER APPROXIMATELY"; INKD/Q1+. 5>; " TIMES PER YEAR 
PR I NT "OR ABOUT EVERY ".; INT<365/INT<D/Qi+. 5>+. 5).; " DAYS. " 
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RANDOM ACCESS MAILING LIST PROGRAM 

by 
HOWARD GOSMAN and PETER SHENKIN 

The following is a simple random access mailing list program. It will allow you to create or add to a 
file of people, to access and correct individual records in the file, and to print the file sorted by either 
ZIP or last name. Line printer operation is supported so this program can actually be used to print 
out mailing labels. With a little modification the program can also besued to keeptrack of files otherthan 
mailing list types. 

We'll now show how this program operates. In the following, our replies to machine queries will be 
enclosed in " " marks (not necessary when you run the program). Comments will be enclosed in ( ), 
Machine output will always be printed in CAPITALS. 

Carefully type the program statements into your LEVEL II DISK SYSTEM. This program will run with 
1 disk drive and 16K of memory. When you are through type SAVE "MAILLIST'and press ENTER. The 
program will be saved on the disk in drive 0. When you are ready to run the program put the disk in drive 
turn on the machine, load BASIC and press LOAD "MAILLIST", R. The disk drive turns on and you 
should see on the CRT: 

***MENU*** 
TO BUILD OR ADD TO A FILE TYPE 1 
TO SEE THE ENTIRE FILE TYPE 2 
TO SEE AN INDIVIDUAL NAME TYPE 3 

TO PRINT SORTED FILE TYPE 4 

? " r ( We shall begin by starting a data file. Hence we type 1 and enter) 

NAME OF FILE? "DATA 3" 

NEW FILE ~ PRESS ENTER TO CONTINUE? ( we press ENTER. Since this file did not pre- 
viously exist it has no records in it and is thus a new file for the purposes of this program. 
If we had wanted to append some names to an old file we would have just used the name 
of the old file when asked for NAME OF FILE?. If an old file was spelled incorrectly the 
NEW FILE statement comes up. Then we know an error has been made. Press BREAK 
and RUN and start over Later KILL the misspelled file.) 

NUMBER? "TRS8422" (Membership number (or ID #) of 1st person on file) 

FIRST NAME? "JOHN" 

LAST NAME? "SMYTHE" 

COMPANY OR APARTMENT NO ? "#C8" 

STREET ADDRESS? "4120 SOUTH STREET" 

CITY AND STATE? "WARREN OH." (No commas here) 

ZIP CODE? "44483" 

(Screen clears and on top of screen we see;) 
TRS8422 
JOHN SMYTHE 
#C8 

4120 SOUTH STREET 
WARREN OH. 44483 
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PRINT IF OK, 1 OTHERWISE, 2 TO RETURN TO MENU? "1" (Press 2 here if you want to ignore this 

person altogether. Pressing O loads the record on the disk file. We pressed 1. 
John Smythe's street address is wrong*) 

NUMBER? (Just press ENTER, The machine prompts for any corrections. 

If there are none just press enter) 
FIRST NAME? (Just press ENTER) 

LAST NAME? (Just press ENTER) 

COMPANY OR APARTMENT NUMBER.? (Just press ENTER) 
STREET ADDRESS? '4121 SOUTH STREET" (Make necessary corrections.) 
CITY AND STATE? (Just press ENTER) 
ZIP CODE? (Just press ENTER) 

(Screen clears and we see:) 

TRS8422 

JOHN SMYTHE 

#C8 

4121 SOUTH STREET 

WARREN OH. 44483 

PRINT O IF OK, 1 OTHERWISE, 1 TO RETURN TO MENU? u O M 

FOR ANOTHER NAME TYPE 1, ELSE TYPE 0? "1" 

NUMBER? (Works just like before.) 

(After entering a few more names like this we type and return to the MENU. 

(One of the people on the list we constructed is named Joan Tide. We wish to review her records and 
possibly change them. Thus we choose option 3 from the MENU and see:) 

NAME OF FILE? "DATA3" 

ENTER LAST NAME OF RECORD YOU WISH TO SEE? "TIDE" 

TRS8423 

JOAN TIDE 

430 OVERHILL 

COLUMBUS OH. 43214 

INPUT 1 IF CORRECT PERSON 

INPUT 1 IF CORRECT LAST NAME BUT WRONG PERSON 

INPUT 3 IF INCORRECT LAST NAME 

? "1" (Option 2 is included as the program is searching through the file and selects 

the 1st TIDE. If there were 2 TIDE'S on the file & Joan was the 2nd one then 
pressing 2 will continue searching the file from the present place.) 

TRS8423 
JOAN TIDE 

430 OVERHILL 
COLUMBUS OH. 43214 
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INPUT 1 TO CHANGE 
INPUT 2 TO SEE ANOTHER PERSON 
INPUT 3 TO PRINT ON LINE PRINTER 
INPUT 4 TO RETURN TO MENU 

CHOICE = ? "1" (From here change works just as when making up file.) 

(MENU option 2 prints the entire file in order of entry either on the CRT or on the line printer. If the CRT is 
chosen then to stop the scrolling on the screen simultaneously press @ and SHI FT. This stops action. To 
continue press any key. MENU option 4 sorts the file by Last name or by ZIP and then prints the sorted 
file either on the CRT or on the CRT and the line printer. The sort routine chosen was chosen to make it 
possible to run the program on the 16K machine. Thus we had to choose a routine which uses very little 
memory. The tradeoff is that the sort is slow when alot of anmes are on f i le. Below are a few entries from a 
sort by ZIP.) 



TRS8232 






BILL 


< 


slabooz 


KING ENTERPRIE 


>ES 




2002 FLAMINGO 






AVER MA 




©1432 


TRS8425 






ABBV 




glade: 


ONCON INC. 






424 W. FIRST 






NEST FORK NJ 




0723:4 


TRS8434 






I RW I N 




JONES 


CONDOR 






52 NEST 79TH S 


TREET 




NEN VORK NV 




10024 


TRS8435 






BORISLAV 




BAROV 


P. 0. BOX 1±5± 






N INTER PARK FL 




32789 


TRSS43S 






JONATHAN 




THAU 


4231 N. 1STH C 


OURT 




MIAMI FL 




33122 
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10 CLEAR 1008 

29 CLS : PRINTS 18, "***MENU***" : PR I NT : PR I NT 

38 PRINT "TO BUILD OR ADD TO fl FILE TYPE 1" 

35 PRINT "TO SEE THE ENTIRE FILE TYPE 2" 

48 PRINT "TO SEE RN INDIVIDUAL NAME TYPE 3" 

50 PRINT "TO PRINT SORTED FILE TYPE 4" 

90 INPUT Q:ON Q GOTO 188,208,488,3888 

95 GOSUB 1388; GOTO 18 

100 REM-STARTS OR ADDS TO EXISTING FILE 

182 CLS: INPUT "NAME OF FILE"; F7*:0PEN"RM, F7* 

186 IF L0F<1>=8 INPUT"NEW FILE— PRESS ENTER TO CONTINUE".; Z9 

189 IF L0F<1>=8 GOTO 115 

118 GOSUB 9288 

115 LR=LR+1 : GOSUB 9388: GOSUB 6888 

138 GOSUB 5188; GOSUB 6288 

135 IF Z9=l GOSUB 6828 : GOTO 138 

148 IF Z9=2 CLOSE l:GOTO 18 

155 G0SUB9188 : GOSUB 9888: PUT 1, PR: PRINT 

168 F*=" " : Nl*=" " : N2*=" " : C*=" " : Al*=" " : A3**" " : ZP*=" " : N*=" " : A2*=" " 

178 INPUT"FOR ANOTHER NAME TYPE 1, ELSE TYPE 0"; X 

175 IF X=l G0T0115 

188 CLOSE :G0T028 

288 CL5:REM-P'RINTS ENTIRE FILE 

287 INPUT "TO PRINT FILE ON MAILING LABELS TYPE 1. . . ELSE TYPE 8"; R 

288 GOSUB 4888 
218 CLS: GOSUB 9288:E=LR 
225 FOR LR=i TO E 

238 GOSUB 9300: GOSUB 9100: GET 1, PR: GOSUB 5800 
278 NEXT 
272 CLOSE 

275 PRINT : INPUT "TO SEE MENU PRESS ENTER"; X:GOTG20 
400 REM-TO SEE OR CHANGE AN INDIVIDUAL RECORD 
405 INPUT "NAME OF FILE"; F7t:OPEN"RM, F7* 
410 CLS 

412 IF LOF<1>=0 PRINT: PRINT "NO RECORDS ON FILE" : PRINT :G0T0472 

413 INPUT "ENTER LAST NAME OF RECORD YOU WISH TO SEE";LN* 
415 GOSUB9200 : E=LR 
425 FOR LR=1 TO E 

438 G0SUB9388 : GOSUB 9188 : GET 1, PR 
441 X=INSTR<NAM*, "*"> :N2*=LEFT*<NAM*, X-l> 
445 IF-LN*=N2* GOTO580 

470 NEXT 

471 PRINT "NAME NOT ON FILE. " 

472 CLOSE 

475 PRINT: INPUT "TO SEE MENU PRESS ENTER "; X:G0T02© 
500 CLS: GOSUB 9488 

518 PRINT: PRINT" INPUT 1 IF CORRECT PERSON" 
515 PRINT" INPUT 2 IF CORRECT LAST NAME BUT WRONG PERSON 
528 PRINT" INPUT 3 IF INCORRECT LAST NAME 
538 INPUT Z9 

540 ON Z9 GOTO 600, 470, 413 
550 GOSUB 1300: GOTO 500 
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680 CLS: GOSUB 3400: PRINT 

605 PRINT 

610 PRINT" INPUT 1 TO CHANGE" 

615 PRINT" INPUT 2 TO SEE ANOTHER PERSON 

620 PR I NT "INPUT 2 TO PRINT ON LINE PRINTER 

625 PRINT" INPUT 4 TO RETURN TO MENU 

630 PRINT; INPUT "CHOICE = " j 29 

640 ON 29 GOTO 700. 410, 680. 272 

680 R=l; PRINT : INPUT'TRESS ENTER WHEN LINE PRINTER READY";?* 

690 CLS : GOSUB 5100 

695 R=0; GOSUB 5100: GOTO 605 

700 REM CHANGE SUBROUTINE 

710 GOSUB 5100 i GOSUB 6820: GOSUB 5100 : PRINT : GOSUB £200 

720 IF 29=1 GOTO 718 

725 LR=E 

726 IF 29=2 CLOSE l;GOTO 18 

73:0 GOSUB 9100 ; GOSUB 9O00 : PUT 1, PR 

750 PRINT: INPUT "PRESS 1 FOR MORE, TO RETURN TO MENU"; 2* 

760 IF 29=8 CLOSE 1 : GOTO 18 

778 IF 29=1 GOTO 410 

780 GOSUB 1300: GOTO 750 

1388 REM INPUT ERROR SUBROUTINE 

1318 PRINT" INPUT ERROR! TRV AGAIN!": FOR K=l TO ~<00NEXT K 

1328 RETURN " " 

3000 REM SORT ROUTINE 

3085 GOSUB 4000 

3010 INPUT" INPUT 1 IF LINE PRINTER TO BE USED, O OTHERWISE" i 29 

3815 IF 2901 AND 29<>8 GOSUB 1388 : GOTO ~:rt!8 

3828 IF 29=1 R=l 

3830 GOSUB 9200: REM FIND NUMBER OF RECORD^ ON FILE 

3848 LIR=LR 

3858 CLS:PRINT"CHOOSE SORT KEV : 1 IF LAST NAME, 2 IF ZIP".; 

-<068 INPUT 29: IF 29<>1 AND 29<>2 GOSUB ±~<f\P\ Qf\jn ^fl^g 

3870 INIT*= " " :LOW*= n ZZZZZZZZZ" :LR=1 

3075 FOR J=i TO LIR 

3088 FOR 1=1 TO LIR 

3898 LR=I:GOSUB 9388; GOSUB 9188 : GET 1, PR 

3188 LR*="00"+STR*<LR> :LR*=RIGHT*<LR*, 3> 

3110 IF Z9=l A*=NAM*+LR* 

3120 IF Z9=2 A$=RIGHT$<CSZ$, 5>+LR$ 

3125 IF A*<=INIT* GOTO 3388 

3138 IF fl*<LOW* LOW*=A$ 

3148 GOTO 3388 

3388 NEXT I 

3318 INIT*=LOW* : LR=VflL< RIGHT* <LQW$, 3> > 

3328 GOSUB 9388 : GOSUB 9188 : GET 1, PR : GOSUB 5888 

3325 LOW$=" 2222222222" 

3338 NEXT J 

3340 PRINT: INPUT"SORT COMPLETE, PRESS ENTER TO RETURN TO MENU"; 29 
3350 GOTO 18 ' ' " 
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4009 REM EMPTV FILE PRINT SUBROUTINE 

4610 CLS: INPUT "NAME OF FILE ".;F7*:0PEN "RM»F7* 

4020 IF LOF<1>=0 PRINT "NO RECORDS ON FILE": GOTO 272: RETURN 

5000 REM PRINTING SUBROUTINE 

SA10 PRINT NUM*: IF R=l LPRINT NUM* 

5620 X=INSTR<NAM*, "*":>: PRINT RIGHT*<NAM*, 26-X); " "; LEFT* < NAM*, X-l> 

5025 IF R=l LPRINT RIGHT* (NAM*/ 26-X>; " ":• LEFT* < NAM*, X-l> 

50K0 IF CMP*>"!" PRINT CMP*. IF R=l LPRINT CMP* 

5035 PRINT HDD*: IF R=l LPRINT ADD* 

5040 PRINT CS2*:IF R=l LPRINT CSZ* 

5050 IF R=l LPRINT " " : IF CMP*<" ! " LPRINT " " 

5060 PRINT: RETURN 

510fl REM PRINTING SUBROUTINE , NO LSET REQUIRED 

5110 CLS : PR I NTF* : PR I NTN1*.< " " i N2* : I F C*> " ! " PR I NTC* 

5115 PRINT Al*: PRINT A2* 

5117 IF R=l LPRINT F* :LPRINTN1*; " ".; N2*: IFC*>" ! " LPRINTC* 

5120 IF R=l LPRINT Al*: LPRINT A2*.< " "} Z*: RETURN 

6000 REM INPUT SUBROUTINE 

6020 CLS : PR I NT : I NPUT " NUMBER " .; F* 

6030 I NPUT " F I RST NAME " ; Nl* : I NPUT " LAST NAME " ; N2* 

SO40 INPUT"COMPANV OR APARTMENT NO. ".; C* 

6050 I NPUT "STREET ADDRESS "; Al*: INPUT "CI TV AND STATE"; A3* 

6070 INPUT "ZIP CODE".;ZP* 

6080 N*=N2*+"*"+Nl* 

*iW, A2*= A3*+STR I NO* < 26-LEN < A3* > -LEN < ZP* ':> , " " > +ZP* RETURN 

6200 PR I NT: REM OK OR NOT SUBROUTINE 

6210 I NPUT "PR I NT IF OK, 1 OTHERWISE, 2 TO RETURN TO MENU".; Z9 

6220 IF Z9 = @ OR Z9=l OR Z9=2RETURN 

£230 GH^UB 1300: GOTO 6200 

S000 LSET NUM*=F*:LSET NAM*=N*:LSET CMP*=C*:LSET FlDD*=fil* : LSET CSZ*=A2* 

9005 LSET D2*=STRING*'::i27, " "> 

9010 RETURN 

9100 FIELD 1, SR*127 AS D*, 23 AS NUM*, 26 AS NAM*, 26 Ab CMP*, 
26 AS ADD*, 26 AS CSZ*, ABS<CSR-1>*127> AS D2* 

9110 RETURN 

9200 REM-FINDS NUMBER OF RECORDS ON FILE 

9210 SR=1 : PR=LOF < 1 ) 

9227 GOSUB 9108 

9230 GET 1, PR 

9240 IF NAM*<"I" LR=PR*2-1 ELSE LR=PR*2 

9250 RETURN 

9300 REM- CALCULATES PR AND SR 

•3310 PR= I NT < < LR-1 > /2 > +1 : SR=LR-2* I NT < < LR-1 > /2 ) -1 : RETURN 

9400 PRINT NUM* : F*=NUM* : K= I NSTR < NAM*, " + " > 

9411 N1*=R I GHT* < NAM*, 26-X > : N2*=LEFT* < NAM*, X-l > 

9413 PRINT Nl*.; " "i N2* 

9415 C$=CMP* 

9420 IF CMP*>"!" PRINT CMP* 

9425 A1*=ADD* : A2*=CSZ* 

9427 A3*=LEFT*<CSZ*, 21 > 

9428 ZP*=RIGHT*<CSZ*, 5> 

9430 PRINT ADD*: PR I NT CSZ*: RETURN 
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These excellent features are standard in the SPINTERM: 

■ Built-in self test. 

: »^£s,sr 0nlv m ° d * 
: [m P c srsc p Sr q x ximum prim ™* 

■ Microprocessor electronics. 

■ High resolution plotting and graphinq 

■ Lowest operating noise level. 

■ Quick change ribbon cartridge. 

■ Quick change print fonts. 

- oSSSr'IHSST w overs hi , nged at top and bott °™- 

uperator engineered control panel 

■ Prints original and up to five copies. 



PRINT ELEMENT 

nnm 6 SPINTERM's unique small-diameter low-mass 
print wheel ,s a low-cost, long-life fiberglass remto H 
Plastic wheel that consists of 64 cylindSlv Tranoed 
££1X2?'°" fi F rS T Which two charac e a're 9ed 

SK th-*t.°" e ab0Ve the other - Normal ''fe of " 
the thimble is more than 30 million impres- 
sions. The small diameter, shared finger ar- 
rangement and low-mass enable the printer 

Jthnlt" 6 ^ ( ? haraCter t0 be P rinted f a« 
er than daisy-wheel printers, which increases 
the printer throughput. 



COMMUNICATIONS CAPABILITY 

The SPINTERM can be interfaced to a data com 

«Ts epuSnTT" thr0U9h a Bel| - 1 °3-ty P e modem or 
its equivalent. It communicates in either half or full 

fff V* K^ rat6S ° f 1 1 °- 1 50 < 2 °0, 300 600 or 200 
S&fS received character is checked for correct 

transmitted *"* b,t " 9en6rated f ° r each charact ^ 
Received characters are stored in a 256 character 
communication line buffer while keyboard generated 
characters pass through a 16-character buffer Interface 
configuration is accomplished using the operator control 




era processing 
8P with 
grajiopBonal Spacing. 

quality ,s required. The SPINTERM priSs uc to SB 
characters per second while receiving da?a at rates up to 
120 characters per second via the RS 232 interface The 
unique print element-a thimble- contains up to 128 

S mh° rmed Char r acters " AH 125 characterso nep im 
thimble are entirely visible to the operator. 

PRINT RIBBON CARTRIDGE 

Print ribbons are contained in an easily reDlaceahlP 
ribbon cartridge. Continuous loop nylor fabric rlKnnS 

S quality Pr ° dUCeS ShafP ' Camera ^ 

KEYBOARD 

rn T thr« ° de i PS " 20 SPINTE RM keyboard is divided in- 
to three sections: an alphanumeric 46-key S a 

an3 a° fST COnsist , in9 of 4 °P e ™or functfon keys 

fc data Th/ k« h er 'w keVPad for rapid entr V ° f "uS? 
ic data. The keyboard uses "Hall-effect" kev Q«,it^hoc 
for high reliability and long life. V sw,tches 

OPERATOR CONTROL PANEL 

The operator control panel provides switches to set 
and operate machine function and configure tS inter 
face operating mode and indicator lights. 

OPERATING NOISE LEVEL 

The SPINTERM is incredibly quiet-only 60 dB with 
«a^ the standard cover on, and 67 dB maxi- 
mum with the cover removed. The low 
°gf[ft'ng noise level permits the 
SPINTERM to be comfortably used in 
any office environment. 

OPTIONAL INTERFACES 

Several interfaces for both models are avail- 
able which meet most user requirements. 



INPUT/OUTPUT UNLIMITED, INC. 

13762 Victory Boulevard • Van Nuys, CA 91401 

(213) 997-7791 
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Just hook up the cables and connectors supplied 
with your SELECTRA-TERM and you're ready to run. 
Input your text and type the single command: LPRiNT. 
The SELECTRA-TERM automatically outputs clear, 
clean high fidelity copy. 

Incredibly simple! 

Brand new. $1925^ 
Fully assembled and tested. 

Delivery five weeks. 
Many options available 

6115 VAC, 60 Hz Model, 

Direct international sales inquiries to 

International Sales Division 

17648 Orna Drive 

Granada Hills, CA 91344 USA 



COMPARE THIS 
DOT MATRIX OU 


TPL 


iT 


with the 
SELECTRA- 
fidelity 
print I 


-TERM hi 
impact 


.gh 




SELECTRA-TERM can also be connected 
to the parallel port of PET a Apple II * 
Heath H8 ■ IMSAI a Cromemco * Alpha 
Microsystems ■ Space Byte « North Star 
Horizon a SWTP a Vector Graphic ■ Sol ■ 
Polymorphic ■ Digital Group ■ Ohio 
Scientific *» Aitair ■ Sorcerer ■ Xitan « 
Rex « KIM ■ Versatile CRT ■ EXORcisor 

*^M30 

micro 

computer 

devices 

inc. 

960 £. Orangethorpe, Bldg. F 

Anaheim, California 92801 

Telephone (714) 992-2270 



*TRS-80 is a product of Radio Shad 




"Innovators to the Microcomputer Industry 
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Past Office Box Q 

Philadelphia PA 19105 

Toll free Microline 

800-523-4550 

In Pennsylvania and O^da 

C215] 665-1112 




FD200 Microfloppy™ Disk Drive Specifications 



Performance 

Seek Time 

Head Settling Time 

Head Loading Time 

Error Rate (Maximum) 

Head Life 

Media Life 

Disk Speed 

Instantaneous Speed Variation 

Start/Stop Time 



Recording Parameters 

Transfer Rate 

Recording Density (inside track) 

Maximum Bits per Side per Disk 1 

Maximum Bits per Track 1 



25 msec track to track 

10 msec (last track addressed) 

35 msec (maximum) 

1 per 10 9 recoverable, 1 per 10 12 

20.000 hours (normal use) 

3 million passes on a single track 

300 rpm ± 1.5% 

± 1.0% 

1 second (maximum) 



125/250K bits/sec 
2768/5536 bpi 
1 milhon/2 million 
25.000/50.000 




™E ELECTRICi ^CILWmPROCESsSR-sgsTM 

TBOi: „„. t w^itioe Kj./jji and 20 -mil current Iood printers us«"« n.-r 

R S«-"S:AMACHLI^ WMOOAGEMOrirrpR FOR JHETRS-80-S23 95 

SSteof tl^'w^ 2 " 3 ° ""^n'i"! Ha»ry may b^ disced n 



g™gf#B 



MacroFlopp) 



Specifications 



Performance 

Capacity/drive: 143,000 
Transfer rate: 250,000 bits/second 
Average rotational latency time: 100 msec 
Access time: Track-to-track: 30 msec 
Settling time- 10 msec 
Head load time: 75 msec 
Drive motor start time: 1 second 
Rotational speed: 300 RPM 
Recording density: 5162 BPI 
Recording code' MFM 
Track density 48 TPI 



«a*ftfahrm^^ 



^^^Mmmu^Mum.^^ 



-j^^am^m 



■^^^m^m^tmki^^m^^i^^^ii^^mM 



Post Office Box Q 

Philadelphia PA 19105 

Toll free Micro-line 

800-523-4550 

tn Pennsylvania and Canada 

(215) 665-1112 fig 

mi crotronix f 



r : '.':. , ■' ■ ■ - ' 



■ J.-y-Tj ' ' J 
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CREDIT CARDS ACCEPTED 
MICROTRONIX MATCHES ANY 

ADVERTISED PRICE. 
ALSO SEE FACING PAGE. 



DISKS <*WIRED FOR TRS-80) 

CASE , FAN, 16 AMP SUPPLY. . $299. 

(ACCEPTS ALL MINI FLOPPIES BELOW) 
*SHUGART SA400 DRIVE (RADIO SHACK) 
89K, 35 TRACK, ONE SIDE. .... $349. 

, *PERTEC FD200, 125K, 40TRACK. . . $349. 
(WRITE BOTH SIDES) WITH CASE. $399. 
•SMICROPOLIS MACROFLOPPY 1022-1 

143/315K WITH! CASE, SUPPLY. . $449. 

1033-11 DUAL UNIT WITH LEDS.$895. 

4 DRIVE CABLE FOR TRS-80......* 50.. 

FOR MULTIDRIVE SYSTEMS ORDER 
CASE WITH FAN AND AIR CLEANER 
CASE HOLDS PRESENT RS DRIVES 



$189* 
. $79* 

$399!: 



PRINTERS 

(ALL PRINTERS HAVE BEEN TESTED WITH TAPE AND DISK 
BASED TRS-80 "S AND ARE PROVIDED WITH OPTIONAL CABLES. 
ALL PRINTER UNLESS SPECIFIED ARE PARALLEL AND REQUIRE 
THE RADIO SHACK OR MICROTRONIX EXPANSION INTERFACES.) 
CENTRONICS PI, 150 LINE/MIN, DOT MATRIX, LOWER CASE, 

3 SOFTWARE CONTROLLED SIZES, 5" ALUM. PAPER ..$449. 

CENTRONICS SI (SAME AS PI, BUT ONLY REQUIRES $39,95 

SERIAL INTERFACE, USES LPRINT,LLIST COMMANDS. ..... $549. 

EXPANDOR 12.3P (BLACK BOX) IMPACT, 10 CHAR/SEC, 80 COL., 

TRACTOR/FRICTON FEED, UPPER CASE ONLY .$449. 

ANDERSON/ .JACOBSON 341 I/O BIDIRECTIONAL REBUILT SELECTRIC 
15 CHAR/SEC, 15"CARRIAGE, LOWER CASE, 90 DAY DEL... $1095. 
T. 1.810 7X9 DOT MATRIX, 200 CHAR/SEC, 132 COL. TRACT. 
INTEGRAL DATA IP125, IMPACT DOT MATRIX, 160 CHAR/SEC 

LOWER CASE, TRACTOR $150., FULL GRAPHICS $200. 
SAUNDERS 12/7, TYPOGRAPHICAL QUALITY, 200 CHAR/SEC. 
MULT I -PASS DOT MATRIX, 13 FONTS, ACCEPTS LETTERHEAD 
FOREIGN LANGUAGE FONTS WITH TRS-80 SOFTWARE $500. 
CABLES PLUS CONNECTORS FOR PRINTERS. .. $25, WIRED. .... $35. 

INTERFACES 
MICROTRONIX EXPANDABLE INTERFACE, WITH PARALLEL PRINTER 

PORT , TWO JO YST I CKS , STEREO SOUND , OPT . TV COLOR . . $ 1 29 . 95 
MANY FUTURE OPTIONS INCL. DISK CONTROLLER, SI 00 

TRS232 SERIAL INTERFACE, OUTPUT ONLY THRU CASSETTE. $39.95 
LOWER CASE KIT, INCL PARTS, INSTRUCTIONS, SOFTWARE. $12.00 

16K UPGRADE KITS, PRIME WITH INST. (SPECIFY LOCATION) .. $99. 

acemoae 

UTILITY PAK I (INCLUDES I ITILITY PROGRAMS U1,U2,U3) 

Ul LIBLOADER: MERGES SUBROUTINES, PROG. FROM TAPE. 

U2 STATEMENT RENUMBERS HANDLES GOSUB,GOTO ETC 

U3 STATEMENT ANALYSIS: LISTS ALL GOTO,GOSUB, ETC.. 
ELECTRIC PENCIL: WORD PROCESSING SYSTEM W LOWER CASE$99.95 

TURNS YOUR TRS-80 INTO A $10K IBM MAG CARD SYSTEM 
DISK UTILITY: PUT PENCIL, TBUG, EDIT/ASSEM ON DISK... $9. 95 

DATA ENTRY I : FORMAT FREE DISK DATA ENTRY $99. 95 

REPORT GEN. I: CREATE REPORTS FROM DATA ABOVE. ^99. 9S 

D I SK MON I TOR $29 . 95 , ED I TOR / ASSEM $29 . 95 , Z -80 MON I T0R$23 . 95 
MICROCHESS (4K JENNINGS 1.5 OR 16K LVL II S ARGON ) . . . $19. 95 
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9. 
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AD TYPED WITH ELECTRIC PENCIL, T I 810 (WITHOUT LOWER CASE ROM 
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MATHEMATICAL APPLICATIONS SERVICE™ 




1 REM-PRIME FACTORIZATION OF AN INTEGER 

2 REM- BY 

3 REM- DR PETER SHENKIN 
5 CLS 

10 PRINT " prime FACTORIZATION OF AN INTEGER" 

38 PRINT "THIS PROGRAM WILL DETERMINE ALL PRIME FACTORS OF AN INTEGER. 

Qk? PRINT 

50 INPUT "PRESS ENTER TO BEGIN" ; Z^ 
100 CLS 

110 PRINT 8 328, " " 
128 INPUT "DESIRED INTEGER"; IN 
138 NF=8 
148 CLS 

150 PRINT "PRIME FACTORS OF "; IN 
160 PRINT 

170 PRINT "FACTOR NUMBER OF TIMES- 
ISO PRINT SGN<IN>,1 
280 FOR 1=2 TO IN-1 
210 S=0 

220 IF IN/I O INK IN/I > THEN 270 
230 IN = IN/ I ;S= S+l : NF=NF+1 
240 GOTO 228 
270 IF S=6 GOTO 306 
280 PRINT I,S 
290 IF I NO 1 GOTO 308 
295 GOTO 330 
380 NEXT I 
310 PRINT 

320 IF NF = PRINT IN ; " IS PRIME" * 

330 PRINT 

340 INPUT "INPUT 1 FOR ANOTHER NUMBER, 8 TO END"; Z8 

350 IF Z8 = 1 GOTO 188 

368 IF Z8 = 8 END 

378 PRINT "INPUT ERROR. TRV AGAIN. " 

388 FOR 1= 1 TO 388: NEXT I 

398 GOTO 348 
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Special 

Introductory 

Prices S3 



ntroducingthe ^ 

WIsfa ¥8§ Mini Disk Sfstem 



23% MORE STORAGE CAPACITY ~~ increases your usabie storage capac- 
ity 23% from 55,000 to 67,800 bytes on drive one. 

FASTER DRIVE — Electronically equal to the TRS-80 Mini-Disk System, but 
up to 8 times faster (Track-to-track access in 5ms for the V80 versus 40ms 
for TRS-80). 
DOES NOT VOID TRS-80 WARRANTY — V80 also has 90-day warranty 

HERE'S WHAT YOU GET: 

Minifloppy disk drive/Power Supply/Regulator board/Compact case 

DOUBLE DENSITY FOR DOUBLE STORAGE — The V80 will work with the 

Vista double-density expansion unit when available. 

SHIPPED TO YOU READY TO RUN — Simply take it out of the box, plug it 

in and you're ready to run. 



TfV vista Computer Company, Dept. 
I U. 2909 o re g 0n Court, Torrance, CA 90503 
(213)320-3880 




Please send me __ 

This is my: u 1st n 2nd 

Check here for cable: u 

(In California, add 6% sales tax. 



V80 unit(s). @ $395. 

3rd D 4th disk drive. (If this is your 1st drive, you need a connecting cable at $29.95.) 



I've enclosed: 
Please charge to: 

Name 

Address 

City 



C j Check 

[J Master Charge 

Card Expiration Date. 



D Money Order 

u Visa Card No._„ 

Signature. 



State/Zip 
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RADIO SHACK COMPUTER OWNERS 
TRS-80 MODEL I AND MODEL II 




MONTHLY 
NEWSLETTER 

• PRACTICAL APPLICATIONS 

• BUSINESS 

• GAMBLING • GAMES 

• EDUCATION 

• PERSONAL FINANCE 

• BEGINNER'S CORNER 

• NEW PRODUCTS 

• SOFTWARE EXCHANGE 

• MARKET PLACE 

• QUESTIONS AND ANSWERS 

• PROGRAM PRINTOUTS 
AND MORE 

iCft^E WOI * D PROCESSING PROGRAM (Cassette or Disk) 

\ !*■- For writing letters, text, mailing lists, etc., with each new subscriptions or renewal. 

LEVEL II RAM TEST - 

Checks random access memory to ensure that all memory locations are working properly. 



ON N ?A F «F?^ R A 3 Mn A n,IIP™ ^nn C ^I ALOG < 1NCLUDING LISTINGS OF HUNDREDS OF TRS-80 PROGRAMS AVAILABLE] 
ON CASSETT E AND DISKETTE). $2.00 OR FREE WITH EACH SUBSCRIPTION OR SAMPLE ISSUE. «u-rtBi-tj 



iCQMPUTRQNICSi 



eLjLJHiII Li ilALiiJc r___\ HOUR 




Box 149 New City, New York 10956 \NJHPB^A 24 ORDER *I@8 

I INF t ^^^ 

ONE YEAR SUBSCRIPTION $24 , Q14) 425.1535 

TWO YEAR SUBSCRIPTION $48 

SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE .____ 

(#1 - July 1978 • #7 - January 1979 • #12 - June 1979) 
NEW SUBSCRIPTION RENEWAL „ 

CREDIT CARD NUMBER „ ^ DAJE 

SIGNATURE . 

NAME __ 



ADDRESS 



ADD S6/YEAR {CANADA, MEXICO) - ADD S12/YEAR AIR MAIL - OUTSIDE OF USA,, CANADA & MEXICO *** 
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